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SECTION  I 
INTRODUCTION 

Argonne  Naticnal  Laboratory  (ANL)  has  developed  an  "Air  Quality 
Assessment  Model"  (AQAM)  for  airbase  operations  under  contract  to  the  U.S. 

Air  Force  Civil  Engineering  Center  (AFCEC) . The  model  is  designed  to  simu- 
late the  emission  of  pollutants  from  sources  on  an  airbase  and  the  dispersion 
of  these  pollutants  in  the  atmosphere  and  calculates  pollutant  concentrations 
over  a grid  of  ground  level  receptors.  The  model  is  comprised  of  four  physi- 
cally separate  computer  codes,  of  which  three  must  be  operated  by  the  user. 
The  fourth  code  prepares  a magnetic  tape  containing  long-term  stability-time- 
wind  roses  for  use  by  the  long-term  climatological  type  air  pollution  model. 
This  code  is  operated  on  request  by  the  USAF  Environmental  Technical  Applica- 
tions Center  in  Washington,  D.C.  The  resultant  magnetic  tapes  containing  the 
climatological  information  is  shipped  to  the  user.  The  other  three  codes, 
developed  by  ANL,  consist  of  the 

• Source  Inventory  Model  (SRCINV) 

• Short-Term  Emission/Dispersion  Model 

• Long-Term  Emission/Dispersion  Model 

This  report  constitutes  the  computer  code  documentation  for  the  third 
of  these  - the  Long-Term  Emission/Dispersion  Model.  Separate  computer  code 
documentation  manuals  (References  1 and  2)  are  available  for  SRCINV  and  the 
Short-Term  Emission/Dispersion  Model.  A companion  document  to  these  reports, 
an  Operator's  Guide  (Reference  3)  consists  of  a detailed  discussion  of  the 
various  functional  parts  of  the  computer  programs  and  the  input/output  re- 
quirements. A second  companion  report  (Reference  4)  discusses  the  technical 
and  theoretical  basis  underlying  AQAM  and  presents  and  describes  equations 
and  algorithms  used  in  the  various  AQAM  sub-models. 

The  Intended  ourpose  of  the  present  document  is  to  provide  a computer 
programmer  with  sufficient  information  so  that  he  can  study  the  code  and  make 
changes  or  modifications  to  it  where  required. 

Table  1 contains  a list  of  all  routines  contained  in  the  Long-Term 
Model  in  alphabetical  order  together  with  a brief  description.  More  detailed 
descriptions  of  each  routine,  together  with  flow  charts  and  computer  code 


r 


listings  with  comments  that  are  intended  to  link  listings  to  flow  charts,  are 
given  on  subsequent  pages.  It  is  hoped  that  this  information,  when  combined 
with  that  given  in  References  1-4,  will  enable  a programmer  to  understand  and 
modify  the  code  when  desired. 
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TABLE  1.  LIST  OF  ALL  PROGRAMS  AND  SUB-PROGRAMS  IN  THE 
LONG-TERM  EMISSION/DISPERSION  MODEL 


SUBROUTINE 

ABARAR 

ABLNAR 

ABPTAR 

AC  SRC E 

AINE 

AREAWT 

BLOCK  DATA 


DESCRIPTION 


Input  airbase  non-aircraft  area  source  data  and 
compute  emission  rates. 

Input  airbase  non-aircraft  line  source  data  and 
compute  emission  rates. 

Input  airbase  non-aircraft  point  source  data  and 
compute  emission  rates. 

Set  up  the  aircraft  source  arravs  and  allocate 
emissions  to  areas  and/or  lines. 

Translate  line  and  receptor  coordinates  and  set 
all  necessary  line  parameters. 

Calculate  area  weighting  factor  to  account  for 
the  fraction  of  the  source  seen  by  the  receptor. 

Initialize  data  in  common  blocks. 


CAVL 


Compute  coupling  coefficient  at  a receptor  due 
to  a line  source. 


CLASSE 

DEPART 

DIFERF 


D IFMOD 


EMISAR 


Print  input  error  message. 

Calculate  points  in  the  departure  path. 

Find  the  difference  between  twc  error  functions. 

Direct  calls  to  the  proper  diffusion  routine 
for  all  input  sources. 

Accumulate  emissions  from  airbase  areas  and 
lines. 


ENARAY 


Input  environ  source  data  and  compute  emission 
rates. 


TNDINP/DEPINP  Print  the  source  input. 

MAIN  Read  general  data  and  direct  ccntrol  to  READ 

and  MAINE. 


MAINL  Main  driver  for  long  term  model. 

MF.THA-METHE  Calculate  diurnal  emissions  from  non-aircraft 

sources  using  varying  methods. 
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TABLE  1.  (Concluded) 
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SUBROUTINE  DESCRIPTION 

OUTPUT  Print  pollutant  concentrations  at  all  receptors. 


PLRISE 


Calculate  effective  height  and  dispersion 
coefficients  for  a stack  plume. 


POLUT 


Determine  pollutant  concentrations  from  point 
and  area  sources. 


POLUTL 


Determine  pollutant  concentrations  from  line 
sources. 


PSEUDL 

QG3 

QG4 

QMOD 

READ 

RISE 

RRDIST 

SIGTZ 

SIGY/SIGCY 

SIGZ/SIGCZ 

SOURCE 


Call  functions  to  find  virtual  distance  from 
source  to  pseudo  upwind  point  for  all  stability 
classes . 

A three-point  Gaussian  quadrature  procedure. 

A four-point  Gaussian  quadrature  procedure. 

Compute  linear  distribution  of  pollution  along 
a runway. 

Read  master  source  tape. 

Calculate  plume  rise. 

Calculate  length  of  runway  necessary  for  takeoff. 

Calculate  the  vertical  dispersion  or  critical 
distance  for  all  wind  speed  and  stability  classes. 

Calculate  horizontal  dispersion  or  corresponding 
virtual  distance. 

Calculate  vertical  dispersion  or  corresponding 
virtual  distance. 

Driver  for  non-aircraft  emission  routines. 
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If  the  diurnal  distribution  cards  are  input,  an  additional 
parameter,  IOPT,  is  read  here  to  choose  the  method  of  distri- 
bution of  those  evaporative  hydrocarbons  not  using  the  default 
of  a uniform  distribution. 

Output: 

The  array,  AMR,  is  filled  with  geometry  ar.d  emission  data  for 
airbase  non-aircraft  area  sources. 

Subroutines 

Called: 

MEDIA , MED  IB,  METHC,  MEDE,  EMISAR 


b 


SUBROUTINE  ABARAR 


READ  ITAPE  FOR  ALL  AIR  BASE  AREA  SOURCE 
INPUT  AND  EMISSION  RESULTS,  TOGETHER 
WITH  TYPE  COUNTERS. 


RETURN 


ZERO  OUT  ABAR  ARRAY  TO  BE  USED. 
LATE  TVP  FOR  EACH  FUEL. 


CALCU- 


USING  DEFAULT  ACTIVITY  FRACTIONS  CALCU- 
LATE HC  EMISSIONS  FROM  ALL  FUELS  AND 
SPILLAGE.  ACCUMULATE  IN  PROPER  ARIA 
SO.JRCE  LOCATION. 


CALCULATE  HC  EMISSIONS  FROM  SPECIFIED 
FUEL  AND  TANK  TYPE.  ACCUMULATE  IN 
PROPER  AREA  SOURCE  LOCATION. 
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ACCUMULATE  OTHER  IiC  EMISSIONS  IN 
PROPER  AREA  SOURCE  LOCATION 


noon 


SUBRC  UIIN  E ABARAP 
C 

C 1IHS  ROUTINE  COMPUTES  THF  FMISSION  BATES  FOB 

C AIL  AIKbASE  AREAS 

C NWFK  = NO.  OF  HYDROCARBON  WORKING  LOSSES 

C NBfT  = NO.  OF  HYDROCARBON  BREATHING  LOSSES 

C NXEVP  = NC.  OF  CT  HER  EVAPORATIVE  HYDROCARBON  SOURCES 

C NSHS  = NO.  OF  SPACE  HEATING  SOURCES 

C NCRVHS  = NO.  OF  OFF-ROAD  VFHICLE  SOURCES 

C NMVHAR  = NO.  OF  MILITAFY  VEHICLE  AREA  SOURCES 

C NCVHAR  = NO.  OF  CIVILIAN  VEhICLE  AREA  SOURCES 

C 

CCMMCN  /PERIOD/  I MONT  H , NO  DA  YS  , ID  A Y , I fi  R 1 , I HR2 , 1 FL  AG,  J f LA  G 
CCnncN  / DEFALT  / IT  A PS, ACL N DY , ACLN D2 , AL PH A ( 7)  , BET A ( 7)  , FLDE N S ( 7) 
CGMNCN  /DSTRBT/  ACHO  ( 1 3, 8)  , AC D Y (2 , d)  , ACH R (24 , 6)  , VHMLMG ( 1 3)  , 

. VHMLDY  (2)  , VHHLHP  (24)  , CV ABMO ( 1 3)  , CV A6DY (2) , CV ABHR (2  4)  , OVEN  MO  (13)  , 
. CVENCY  (2) ,CVEFHR (24)  ,FLNC  (13,7)  , FLD  i (2,7) ,FLHR(24, 7)  ,NC1 
CCMMCN/ JUNK/DAYS, LSRCE,NSPCE, SORCE ( 1 7 , 300)  ,SGPGi1  (10,200) 

. ,LCC1,LGC2,NGEGM,IFT 

CCMMON/MONMET/IMBAR  ,«SMBAR  ,AMDMBR,DIMBAR 

CCMMCN  /SRCE/  NFLTS , NENPT , NENAR, NENLN, NABPT, NABAR, N A d LN , 

. NACPT,NACAR,N; CLN,ENFT  ( 16, 100)  , ENAR  ( 1 1 , 100)  , ENLN ( 14, 20)  , 

ABFT ( 16,  ISO)  , ABAR (1 1,  100) , ABLN  ( 1 4 , 100) 
DIMtNSION  ABARC-M  (7, 10  0)  , HCVRK  ( 10, 50)  , HCBRT(5,  100)  , HCE  VD  (3, 50)  , 

. FLHCUF  (7)  , TVF O) 

EQUIVALENCE  (SORGM  ( 1 ) , ABA RGM ( 1 ) ) , (SORGM  ( 70  1)  , HC WRK  ( 1 ) ) , 

(SORGM  (1201)  ,HC?PT  (1)  ) , (SORGM  ( 1 70  1)  ,HCE VP ( 1 ) ) 

LCC  1 = 2 
LCC2=2 
NGECM=0 
IFT  = 0 
NSRCE=0 
11  = 17 
1 2=  3C0 
C 

READ  (ITAPE)  NAi  A R , NTOT , N V P K , N B R T , NXEVP, NSH5, NOR VhS, 

NHVHAR, NCVHAR, NABAPS,  ((ABARGM(I,N)  ,1=1,7) , N=1, NABAR) , 

. ( (HCWRK(I,N) ,1  = 1,  10)  , N= 1 , NWFK)  , 

( (HCEFT  (I,N)  , 1=1, 5)  ,N=1 , NBFT)  , 

( (HCEVP  (I  ,N)  . 1=  1 , 3)  , N=  1 , NXEVP)  , 

( (SCPCE  (I, N)  ,1  = 1, NIC I)  ,N  = 1 , NABAPS) 

C 

IF  (NAEAR.E0.0)  GO  TC  1100 
C 

NHI=IHF2 

IF  (IHR  1 .GT.  IHP2)  NHI=  2 4 + I H F.  2 
H F S=  NHI -IH8 1 + 1 
DC  1C  N=  1 , N ABAT 
DC  10  1=1  , N E ITS 
AEAR  (1  + 5, N)  =0.0 
10  CCNTINUE 

T=5./9.*(TMBAR- 32.0) +273. 

DC  20  J= 1 , 7 

T VP  (J) =EXP  (ALPHA  (J) -BETA (J)/T) 

20  CONTINUE 
C 

IE  (NWRK.EQ.O)  GO  TO  100 

USING  DEFAULT  ICTIVITY  FRACTIONS  CALCULATE  HC 
EMISSIONS  FROM  ALL  FUELS  AND  SPILLAGE. 

ACCUMULATE  IN  ABAR  ARFAY 

DC  50  N= 1 , N WRK 


ABARR000 
ABAPR001 
ABARR002 
ABARR003 
ABAPP0C4 
ABARP005 
ABARR006 
ABARP0C7 
ABARR008 
ABARP009 
ABARRO  10 
ABARR01 1 
ABARRO 12 
A B A R R 0 1 3 
ABAPR014 
ABAPR015 
A8ARR016 
ABARR017 
ABARR018 
ABARRO 19 
ABARR020 
ABARP021 
ABAFR022 
ABAPR023 
ABARR024 
ABA  RR025 
ABARP026 
A.  BARR027 
ABA.  RP  028 
ABARR029 
ABARP030 
ABARR03  1 
ABAPF032 
ABARR033 
A.  PARR034 
ABARR035 
ABARR036 
ABARP037 
ABARR038 
ABARRC39 
ABARP040 
ABA  RR04  1 
ABARR042 
ABAPR043 
ABAEROUU 
ABAPR045 
ABARP046 
ABARR047 
ABARP048 
AB  A RP  04  9 
ABA  RR050 
ABARF05  1 
ABARR052 
ABARR053 
ABAPR054 
ABARR055 
ABARP056 
AB  A PR  05  7 
ABARR058 
ABARP059 
ABARF060 
ABARR06  1 
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HC  = 0. 

ABARF062 

FFC=C. 

ABARR06  3 

DC  40  J= 1 , 7 

AE ASR064 

FLHOUP  (J)  -0 . 

ABARR065 

DC  30  I=IHR1,NHI 

ABAFR066 

II  = I 

ABARR067 

If  (I.OT.24)  11  = 1-24 

ABARR068 

30 

FIHCUR  (J)  = PLH0'JR(.1)  *FLHR  (II,  J) 

ABARR069 

F LHCUK  (J)  -FLHU)  R (J) /H  PS 

ABARP070 

FFC=EHC+FLHOUF(J)*FLMC(1MONTM,J|*FLDY(IDAY,J) 

• ABARR07 1 

HC-hC+HCWRK  ( J ♦ 2 , N ) «TVF  (J)  *FLMO ( I MONTH, J ) * FL  DY ( I DA  Y,  J ) 

ABARR072 

* E LHCUR  (J ) *7 . /DAYS 

ABAPR07  3 

U0 

CONTINUE 

ABARR074 

F PC  = E FC/4 .*7. /DAYS 

ABARP075 

ABARP076 

J=HCFFK  (2  , N) 

ABARR077 

AcAF  (7, J)  APAF  (7,3)  ♦ (HC  ♦ HCWRK(10,N)  * r BC)  * ( 1 . c + b/3. 6) 

AB  APR  07  8 

SO 

CONTINUE 

ABAHP079 

ABAPR080 

100 

IF  (NEST.EO.O)  GO  TO  203 

ABARR08 1 

CALCULATE  HC  EMISSIONS  FROM  .SPECIFIED  FI) EL  AND 

ABARP082 

TANK  TYIES.  ACCIIM  ULA  IE  IN  ABAH  AFFAY 

ABAPFC8  3 
ABAPR084 

DC  110  N = 1 , NBRT 

ABAPP085 

J - HC  P FT  (3  , N ) 

ABAPR086 

EX=C. 68 

ABARP087 

IF  (HCPFT  (4 , N) . EC. 2. ) £X  = 0. 70 

A.  BARP088 

HC=HCBRT (5, N) * (TVP (J) / (14. 7-TVP (J) ) ) **LX* (1 . E*6/( J.  i*24. *365.) ) 

ABARR089 

ABAPF090 

J = HCBFT  (2, N) 

ABARR09 1 

APAF  (7, J)  = A B A F (7,0)  nSC 

ABARR092 

110 

CCNTI  N'JE 

ABARE093 

ABARE094 

3 00 

IF  (NXFVF.EQ.O)  GO  TO  300 

ABARK095 

ICLAS£"1  1( 

AB  APR  096 

NTF.  M E = NELTS 

ABA  RR097 

NFLTS=  1 

ABAPP095 

ICC  1 = 3 

ABAHR099 

NSFCF=N AEAR  S 

ABARF  100 

DC  2 10  N=  1 , NXE.V P 

ABAPR101 

DC  210  1=1,3 

ABARR  102 

SCRCE  (I,  NAB  A PS*  N)  =HC£VE  (I  , N) 

ABARF  103 

210 

CONTINUE 

ABAPR  104 

I CPT= 1 

AB ARR105 

IE  (JFLAG.EC.O)  READ  2,I0PT 

ABARP  106 

<u 

FORMAT (14) 

ABARF  107 

GC  TC  (220,230) ,IOPT 

ABARR108 
ABARP  10« 

220 

CALL  METH  A (NXEVF.SOSCE, 11 , 12,  I CLASS) 

APAPP  1 10 

GC  TC  240 

APARF  1 1 1 

2 J 0 

CALI  MFTHC  ( N XFV P , SO  PC S , H , 12,  ICLASS) 

ABAFR112 
ABARR  1 1 3 

itiO 

DC  250  N= 1 , NXEVF 

ABAPF 1 14 
ABARR 115 

ACCUMULATE  CTF.ER  JVAPCFATIVE  HC  EMISSIONS  IN  ABAP  A.iRAY 

ABA  PF  1 16 
ABARF  117 

J=HCEVF(2,N) 

ABARR  1 18 

A BAR  (7,  J)  = APAF  (7  , J)  +SCRCE  (3,  NAB  A PS*  N) 

AB  A PR  1 19 

250 

CCNTINUE 

ABARR  120 
ABARR  12  1 

N FLI S = NTEMP 

ABARR 122 

N 5 FC  E = 0 

ABARP  123 

12 


n r>  o o n 


| 


LCC 1=2 
C 

3 CO  IF  (NSHS. EQ.O)  GO  TO  400 
ICLASS=  1 1 1 

CALL  NETHB ( NSHS ,SORCE ,11,12, I CLASS) 

C 

400  IF  ( NC  FVH  S . EQ. 0)  GO  TO  500 
1CLA  SS= 1 1 2 

CALL  MEIHC (NOF VHS,SOPCE,I  1 ,!2,ICLA5S) 

C 

500  IF  (NMVhAF . EQ. 0)  GO  To  bOO 

CALI  METHE(NMVdAF,SORCE,VKMLMO,Vi3MLDY  , VHBLh  R , II  , 12 ) 
C 

bOC  IF  (NCVHAS. EQ.O)  GO  TO  700 

CALL  METHE  ( NCVH AS, SORCE, C V ABMO, CV ABDY , CV ABHR, I 1 , 12) 
C 

C****EMISSICNS  ARE  NOW  IN  MIC30GFA MS/SEC 

FILL  ABAR  APRA/  WITH  AREA  GEOMETRIES 

700  DC  710  N= 1 , NA6AR 
DC  7 1 C 1=1,5 
AfcAP  (I,N)=ABAFGM  (1+2, N) 

710  CONTINUE 

FILL  ABAR  APRA'.'  WITH  THE  NON-FVAP  HC  EMISSION  DATA 

11=11 
12=  ICO 
NSRCE  = 0 

LCC  1 = 5 

IF  (NSHS. EQ.O)  GO  TO  BOO 
CALL  EMI5AR  (NS'IS.ABAP  ,11 , 12) 

BOO  IE  (NORVHS. EQ.O)  GO  TC  900 

CALL  EMISAR  (NCTVHS, ABAR, II , 12) 

900  If  (NMVHAF. EQ.O)  GO  TO  1000 

CALL  EMISAP  (NM  'HAK  , ABAR, II, 12) 

1000  IF  (NCVHAP. EC.C)  GO  TC  1100 

CALL  EMISAR  (NCVHAR , ABAR, II ,12) 

C 

1 100  CCNTINUF 
RETURN 
END 


ABARR  124 
ABARR  125 
ABARP126 
ABARR  127 
ABARP128 
ABA.  FP  12  9 
ABAPR  130 
ABA  RF  1 3 1 
ABAFF1 32 
APAPP  133 
APART  1 34 
ABAPF13S 
A B A P *>  1 16 
ABA  F P 1 37 
A BARF  138 
ASAFR 1 39 
ABA  FF  140 
ABARF  14  1 
ABARF  142 
A9APP143 
ABARR  144 
ABARR  145 
ABARR146 
ABAPP147 
ABARR  1 48 
ABARP  149 
ABAPR1 50 
ABARP151 
ABARF 152 
ABAFP 153 
ABARP154 
ABARR155 
ABARF  156 
ABARP157 
ABAPR  150 
ABAPP159 
AB AFR  160 
A B A P F 1 6 1 
ABARR  162 
ABARR  16  3 
ABARF164 
ABAPR 16c 
A B A R R 1 6 6 
ABAPR  167 
ABARR168 


SUBROUTINE  ABLNAR 


Purpose: 

1.  To  read  from  the  master  source  tape  all  data  needed  to 
define  airbase  non-aircraft  line  sources. 

2.  To  compute  the  emission  rates  due  to  military  and  civilian 
vehicle  line  and  other  airbase  line  activities. 

Input: 

If  the  diurnal  distribution  cards  are  input,  an  additional 
parameter,  IMETH,  is  input  here  to  choose  tae  method  of  distri- 
bution of  emissions  from  those  other  airbase  line  activities 
not  using  the  default  of  a uniform  distribution. 

Output : 

The  array,  ABLN,  is  filled  with  geometry  and  emission  data  for 
non-aircraft  line  sources. 


Subroutines 

Called: 


Mf.THA,  METUC,  NUTTHE,  EMISAR 


| 
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READ  iTAPE  FOR  ALL  AIRBASE  LINE  SOURCE 
INPUT  A’ ID  EMISSIONS  RESULTS,  TOGETHER  WITH 
TYPE  COUNTERS, 


I ILL  ABLN  ARRW  WITH 
LINE  GEOMETRIES 


RETURN 


o n 


SUBROUTINE  ABLl.AF 


C 

C THIS  ROUTINE  COMPUTES  THE  EMISSION  RATES  FOR  ALL 

C AIRBASE  LINES 

C NHVHLN  = NO.  OF  MILITARY  LINE  ACTIVITIES 

C NCVHLN  = NO.  OF  CIVILIAN  LINE  ACTIVITIES 

C NXLN  = NO.  OF  OTHER  AIR  BASE  LINE  ACTIVITIES 

C 

COMMON  / DEFAI’1  / IT  APE , ACLN  D Y , AC  LND  Z , A L PH  A ( 7)  , BET  A ( 7)  , FLDENS  (7) 
COMMON  /PERIOD/  I M ONT H , NO D AY S , ID A Y , I HR 1 , I HR2 , IFL A G, J FL AG 
COMMON/J  UNK/DAY S, LSRCE, NS RCE, SORCE ( 1 7,  300) , SORGM  ( 1 0 , 200) 

. ,LCC1,LOC2,NGIOM,IPT 

COMMON  /DSTRET/  AC MO ( 1 3, 8 ) , AC DY ( 2 , 8)  , ACHR  ( 24 , 8)  , V HM LM 0 ( 1 3)  , 

. VHHLDY  (2)  , VHBI.HR  (24)  .CVABMO  ( 1 3)  , CVABDY  (2)  , CVABHR  (24)  ,CVENHO  (1  3)  , 
. CVENDY  (2)  , CVFi-.HR  (2  4)  , FLMO  (1  3,  7)  , FLOY  (2 , 7 ) , FLHR  ( 2 4 , 7 ) , NCI 
COMMON  /SFCE/  N PLTS  , N E NPT  , NEN  A R , N ENL N , N AB  PT  , N A B AR  , N AB L N , 

. NACPT,NACAR,NACLN,ENPT (16,100)  , E N A R ( 1 1,100)  , E N L N (14,20)  , 

. ABPT  (16, 150) , ABAR ( 11, 100) , ABLN (14, 100) 

LCC  1 = 2 

LOC2=2 

11  = 17 

12=300 

NGEOM=0 

IFT=0 

NSRCE=0 

F BAD  (IT APE)  NA t LN, N TO T, NMVHLN, NCVHLN, NXLN, NABLNS, 

( (SORGM (I, N)  ,1=1,10)  ,N=1 ,NABLN)  , 

( (SCPCE  (I , N)  , 1= 1 , NTCT)  , N= 1 , NABLNS) 

C 

IF  (NAELN.EO.C)  GO  TO  600 
IF  (NMVHLN. EQ. 0)  GO  TO  100 

C 

CALL  MET  HE  (NMVKLN, SOPCE.VHMLMO, VHMLDY, VHMLHR,I 1, 12) 

C 

100  IF  (NCVHLN. EQ.C ) GO  TO  200 
C 

CALL  METHE  ( NCV),  LN,  SORCE,  CV  A BMO,  CVABDY,  CVABHR,  II,  12) 

C 

200  IF  (NXLN.EQ.O)  GO  TO  300 
ICLA  SS= 1 1 7 
C 

I ME  TH  = 1 

If  (JFLAG.EQ.O)  READ  1 , IMETH 
1 FORMAT  (14) 

GO  TO  (210,220)  , IMETH 
C 

210  CALL  HETHA  (NXLN, SORCE, 11,12, ICLASS) 

GC  TO  3C0 
C 

220  CALI  METHC (NXLN, SORCE, 1 1 , I2,ICLASS) 

C 

C****EMISSIONS  ARE  NOW  IN  MICROGRAMS/SEC 

FILL  ABLN  ARRAY  WITH  LINE  GEOMETRIES 

300  DC  320  N=1,NABLN 
DC  310  1=1,8 
ABLN  (I, N) =SORGH  (1+2, N) 

310  CONTINUE 

DC  320  I=1,NrLTS 
ABLN  (1*8, N) =0.0 
320  CONTINUE 
C 


ABLNROOO 
ABLNROO  1 
ABLNRD02 
APLNROO  3 
ABLNR004 
A.BLNR005 
ABLNR006 
ABLNP007 
ABLNF008 
APLNS009 
A.BLNP010 
ABLNRO  1 1 
A B L N F 0 1 2 
ABLN PCI  3 
ABLNRO  1 4 
ABLNR015 
ABLNRO  16 
ABLNP017 
ABLNRO  18 
ABLNP019 
ABLNP020 
ABLNRO  21 
ABLNR022 
ABLNP023 
ABLNF024 
ABLNR025 
API NP026 
ABLNP027 
ABLNP028 
ABLNP029 
ABLNRO  30 
ABLNP031 
ABLNRO  32 
ABLNRO  3 3 
ABLNRO  3 4 
ABLNP03S 
ABLNRO  36 
ABLNR037 
ABLNRO  38 
APLNR039 
ABLNF040 
ABLNP04  1 
ABLNR042 
ABLNR043 
ABLNR0U4 
A B I NR045 
ASLNR046 
ABLNP047 
ARLNR0U8 
ABLNR049 
ABLNR050 
ABLNR081 
ABLNR052 
ABLNR05  3 
ABLNR054 
ABLNROSS 
ABLNR056 
ABLNR057 
ABLNR0B8 
AB  L NR  059 
ABLNR060 
ABLNP06 1 
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r n 


Fill  ABLN  ARRAY  VITH  LINE  FMTSSION  DATA 

NSPCE-0 

LOC1=R 

IlrlU 

I 2=  100 

IF  (NHVHLN. EC. 0)  TO  TC  U00 
CALL  EMISAP (NNVHLN , ABLN, I 1 , 12) 

uOO  IF  (NCVHLN. EC- 0)  00  TO  500 

CAIL  ENISAR (NCVHLN, ABLN, II , 12) 

500  IF  (NXLN.EQ.O)  GO  TO  bOO 

CALL  EMI SAP  (NXLN,ABLN,I1, 12) 

600  CONTINUE 
R FT" F N 
ENC 


ABLNR062 
ABLNS06  I 
APLNR064 
ABLNR065 
ABLNR066 
ABLNR067 
ABLNR068 
ABLNR069 
ABLNPOTO 
AELNF071 
A.BLNP072 
ABLNF.073 
ABLNP074 
ABLNF075 
ABLNP076 
ABLNP077 
ABLNR078 
A B L N P 0 7 9 
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SUBROUTINE  ABPTAR 


1.  To  ’’ead  from  the  master  source  tape  all  data  needed  to 
define  airbase  non-aircraft  point  sources. 

2.  To  compute  the  emission  rates  due  to  training  fires,  test 
cel  s,  run-up  stands,  power  plants,  incinerators,  storage 
tanls  and  other  airbase  point  source  activities. 


None 


The  arr;.y,  APBT,  is  filled  with  geometry  and  emission  data  for 
airbase  non -aircraft  point  sources. 


Subroutines 

Called: 

METHA,  NETHC,  METHD 


SUBROUTINE  ARPTAR 


0 


21 


l 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  ABETAr 

THIS  FCUTINE  COMPUTES  THE  EMISSION  HATES  FOE  ALL 
AIRBASE  POINTS 

NTFS  - NC.  OF  TBAINING  FIRE  SITES 

NTCS  = NO.  OE  TEST  CELIS 

NR  US  - NO.  OF  RUN-UP  STANDS 

NFPS  = NC.  CF  POWER  PLANTS 

NICS  = NO.  OF  INCINERATORS 

N ST  S = NC.  OF  j T 0 h A.  G t TANKS 

NXS  = NO.  OF  OTHER  AIFBASE  POINT  SOURCES 

COMMON/JUNK/DAYS,LSRCF,NSFCF.,SORCE(  17,  300),  SOfcGM  (10  2 00) 

. ,LOC  1,LCC2,NGEOB, IPT 

CCKKCN  / DEFALT  / I T A PE, ACLN DY , ACLNDZ , ALPH A ( 7) , B ET A ( 7) , FL DE NS ( 7) 
COMMON  /SRC F/  N PLTS , N E NPT , NE N A n, NE NL N , N AB PT , N AH AH , N AH LN , 

. NACET.NACAS, NACLN ,ENET(16,100),ENAR(11,100),ENLN(1**,20), 

A3  PT  ( 16, 1 50)  , A BAR ( 1 1,  100)  , A BLN ( 14, ICO) 

LCC 1 = 1 C 
LCC-^11 
NGEGM=9 
IET  = 1 
N SR C I r C 
11=  16 
12=200 

REAL  (ITAPE)  NABPT,NTOT, NTFS, NTCS, NRUS, NPPS,NICS,NSTS  NXS , 

< (SCFCE  (I  , N)  ,1= 1 , NT  CT)  , N=1, NABPT) 

if  (na.pfi.e;.0)  go  to  too 

IF  (NTFS.SQ.O)  GO  TO  100 
TCIASS=101 

C A I L ME IHC  (NIFS, ABPT, II ,12, ICLASS) 

100  IF  (NTCS.FQ.O)  GO  TO  200 
ICLASS=102 

CALL  MFTHC  (NICS, ABPT, 1 1 , 12, ICLASS) 

IF  (NRUS.  F 0.0)  GO  TO  700 
ICIASS=103 

A I I 'ETHC  (NRUS , ABPT, 1 1 , 1 2 , TCL AS S ) 

IR  (NFES.EQ.O)  GO  TO  400 
ICLA  SS  = 104 

ALL  METH A (NFPS  , ABPT, II , 12, ICLASS) 

uCO  IF  (NICS.EQ.O)  GO  TO  500 
rCLASS=105 

ALi  METH A (NICS, ABPT, 1 1,1 2, ICLASS) 

rCO  IR  (NSTS.EO.O)  GO  TO  bOJ 

CALL  MFTHD (NSTS,ABPT, II, T2) 

6C0  IF  (NXS.EO.O)  GO  TO  700 
ICLASS= 107 

CALL  M FT  HA (NXS, ABPT, 1 1 ,12 , ICLASS) 


A.  BPTPOOO 
ABPTROO 1 
A.  BPTP002 
ABPTR003 
ABPTR004 
A.BPTP005 
ABPTROO  6 
ABPTB007 
ABPTR008 
ABPTR0C9 
ABPTRO 1 0 
ABPTR01 1 
ABPTR012 
ABPTRO  1 3 
APPTP014 
ABPTR015 
ABPTP016 
A.  BPTR017 
ABPTPO 1 8 
ABPT P 01° 
ABPTP020 
ABPTP02 1 
ABPTR022 
ABPTRO  2 3 
ABPTR024 
ABPTR025 
ABPTR026 
ABPTR027 
A.  BP  TR  028 
ABPTF029 
ABPTRO  30 
ABPTR03 1 
ABPTR  0 3 2 
ABPTF033 
ABPTR034 
ABPTR035 
ABPTR036 
ABPTR037 
ABPTF038 
ABPTF039 
ABPTR040 
ABPTF04 1 
ABPTP042 
ABPTR043 
ABPTR044 
APPTP045 
ABPTR046 
ABPTR047 
ABPTR048 
A BPTR  04  9 
ABPTR050 
ABPTR05 1 
ABPTR0S2 
ABPTE05  i 
AbPTR054 
ABPTF055 
ABPTR 056 
ABPTR057 
ABPTR05P 
ABPTR059 
ABPTPObO 
ABPTROb 1 
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SUBROUTINE  ACSRQi 


Purpose : 

To  sot  up  the  aircraft  source  arrays  to  be  used  by  the  dispersion 
routines  for  calculating  ground  level  concentrations. 


Input : 

Basic  aircraft  data,  airbase  activity  data,  points  in  arrival- 
departure  paths  and  in  training  flight  paths,  meteorological 
conditions,  time  period  of  calculation. 


Output : 

The  arrays  ACPT , ACLN  and  ACAR  to  contain  a..l  source  informa- 
tion necessary  to  calculate  dispersion  and  pollutant  concentra- 
tions. 


Subroutine 
Cal  led: 

DEPART 


:4 
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SUBROUTINE  ACSRCE  (Cont'd.) 


SET  UP  SEGMENT  LINE 
SOURCE  GEOMETRIES 


ALLOCATE  AIRCRAFT  INBOLND 
TAXIING  POLLUTANT  EMISSIONS 
TO  APPROPRIATE  SEGMENTS 


( END  T/ 


AXIWAY  SEGMENT  LOOP 


DETERMINE  AIRCRAFT  INBOUND 
PARKING  AREA  ASSOCIATED 
WITH  TAXIWAY  PATH 


ALLOCATE  ALL  AIRCRAFT  IDLE 
AT  SHUTDOWN,  REFUELING, 
ARRIVAL  FUEL  VENTING  AND 
SERVICE  VEHICLE  EMISSIONS 
TO  APPROPRIATE  AREA 


. I_ ^ 

( END  INBOUND  TAXIWAY  LOOP  j 


BEGIN  LOOP  OVER  I AI RCRVFT  USED  J 


SUBROUTINE  ACSRCE  (Cont'd.) 
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SUBROUTINE  ACSRCE  (Cont'd.) 


SET  UP  SEGMENT  LINE 
SOURCE  GEOMETRIES 


(7\ 


ALLOCATE  AIRCRAFT  INBOUND 
TAXIING  POLLUTANT  EMISSIONS 
TO  APPROPRIATE  SEGMENTS 


END  TAXI WAY  SEGMENT  LOOP 


DETERMINE  AIRCRAFT  OUTBOUND 
PARKING  AREA  ASSOCIATED 
WITH  TAXI  WAY  PATH 


ALLOCATE  ALL  AIRCRAFT  IDLE  AT 
STARTUP,  DEPARTURE  FUEL 
VENTING  AND  SERVICE  VEHICLE 
j EMISSIONS  TO  .APPROPRIATE  ARIA 


END  OUTBOUND  TAXIWAY  lOOP 


SET  UP  AREA  SOURCE  AT  TAIL 
OF  RIMWAY  .AND  ALLOCATE 
ENGINE  CHECK  EMISSIONS  TO  >T 


(_END  RUNWAY_  IOOP_ 


BEGIN  LOOP  OVER  N RUNWAYS^) 


RUNWAY 
. USED 
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SUBROUTINE  ACSRCE  (Cant'd.) 


0 


BEGIN  LOOP  OVER  I AIRCRAFT  USED 


CALCULATE  RUNWAY  DEPARTURES 
FOR  EACH  AIRCRAFT  TYPE 


^ ANY  \ 
AIRCRAFT 
.DEPARTING. 
\ 


n n 


SUBROUTINE  ACS  P C E 

THIS  POUTINE  SETS  'IP  THE  A IRC  PA  FT  SOURCE  ARPAYS 


ALLOCATES 


POLLUTANT  EKISSIONS  TO  THE 


AFFFCFRIATE  AREA  OR 


ACSRC000 
ACSRCOO 1 
ACSBC002 
ACSPCOO  3 
ACSRC004 
ACSPC005 

PFAL  LNCSPD  ACSRC006 

INTT,EF  FN  J NO  ACS  RCOO  7 

ccirtc n /secf:/  hrecpt , tax f'ti  acsrcoos 

CCN«"N  /SFCi/  NPLTS ,NENPT ,NENAR, NENLN, NABPT, NABAP , NABLN, NACPT,  ACS  RC009 
NACAF , NACLN.FNPT ( IS , 100)  , FN A P ( 1 1 , 1 0 0)  , ENLN ( 1 4 , 2 0)  , f BPT  ( 1 6 , 1 SO)  , ACSRC010 
ABAF  (1 1,  10  0)  , A BLN  ( 14 , 100)  ,ACPT(  1b, 1)  , ACAR(  1 1,24)  , ACLN( 18, 250)  ACSRC01  1 
CCJir  N /ACEDHV  ACENFC  (8, 10,8)  , ASCNT1  (8)  , ASCST2  (8)  ,TXISPD  (8)  , ACSRC012 

LNDSFD(3) , APSPD1 (8)  , APS  PD  2 (P)  ,C0HT1 (6)  , TOSPD(d)  , C0FPD1  (8)  , ACSRC013 

COS  p;  . (“)  , FT UP  I (3)  , PSCNT1 (8)  , EGCHKT  (8),SHTDNT(8), PSCNT2  (8)  , ACS  FCO  1 4 

AFf  H7  , ArPHTF  (b)  ,CLHI?  PT.TOWT  (8)  , EHGNO  (8, 2)  ACSPC015 

cor  rt  /VF'Pi/  NACTYP.NRNWYS,  NPKAR.IEGFLG,  IACTYP(8)  , ANNARR  (8)  , ACSPC016 

ANNDEI  (8J , A NN  TGO ( 8)  , ABPFCN <2U ,8, 6)  , DE PFC N (24 , 8 , 6 ) , TGO (3,4,8)  , ACSRCO  17 
IT.  '•  i , PNK Y (7, 6 ) , IUSW D (20 , 6)  ,ACFUEL(8),APFLVT(8)  ,DPFLVT(8),  ACSRC0 18 
ACSPIL  (-)  , AR.SVSH  (6,8 ,8)  , PPSVEH (6 , 8, 5)  , NI  BTT  (6)  ,NLBSEG(8,6)  , ACSPCD1  9 

I 1 PSEG ( 16, fr.6)  , iriPTW  (8,8)  ,TTARFR(d,8,6)  , NO  BTT  (b ) ,NOBSFG(8,6)  , ACSRCO 20 
1(16,8,6) ,3 OBTW  (8,6),TTDFFR(8,8,6),NPAS0(6),ID?RKA(6),  ACSPC021 

PAP  FA  (6,3, 3)  , I DIP  PA  (8,6)  , TDOBPA  (8,6)  , NLSEGS , ACL NSG  (12,25)  , J ES 1 (8) ACSFC02  2 
CGNNCN  / NET  / VS , WSK  F H , I V S , W D , IW  D, SI  HEW  D , COSEW  D, J ST A B , HLID , TEN  F , ACS  RCO  2 3 
1 TFSF  ACSRC024 

CC'«CS  / DEFALT  / IT  A P E , AC LN D Y , AC LNDZ , AL PH  A (7 ) , B ET A ( 7 ) , FLDE NS (7)  ACS  PC025 

CCHP1CN  /DSTFET/  ACHO  ( 13 , 8 ) , ACDY  (2 , 8)  , ACHR  (2  4,  8)  , V HHI  HO  ( 1 3)  , ACSPC026 

. VH»LDY  (2)  , VHP.LHP  (24)  ,CVABHO<1  3)  ,CVABDY  (2)  ,CVABHB(24)  ,CVENHO(13)  , ACS  RCC27 

. CVFNCY(2)  ,CVENHR(24)  , FLHO(13, 7)  , FLOY (2 , 7) , FLHR  (24 , 7 ) , NC 1 ACSRCO 28 

CCNNCN  /PERIOD/  IHO  , NCDAY  S , TOY  , I H R 1 , I H R 2, I FL AG , J F L AG  ACSBC029 

DT TENSION  I AC AS  (2, 18)  ,FRAC (8)  .PARFCT  ( 18) , APARSQ  (6, 3) , NO  (25)  ACS  SCO  30 


CCNHCN  /PERIOD/  IHO  .NCCAYS 
: I HI SSIOH  IACAR  (2, 18)  , FRAC  (ft) 

XF  ( X C , Y C , V ) • YC»SIN (4)  +XO 
YP (YO, YC, «)  - YC *COS  (W)  ♦ YO 
DAY  S = NCDAYS 

NT=NFlTS*s 

T WINP-29+TWO 


AN  I FLAG  n F 0 I 
Fl_:  RUNWAY  FOL'. 
UNCHANGED 

TF  (TFIAG.EQ.O) 


SANS  THAT  ALL  AIRCRAFT  SOURCES  EXCEPT 
AND  CL  INPOUT  NODES  1 AND  2 R EH  AIN 


DEPFCN  FRO*  rl 


11  . 1.  ANT,  I WD.  IF.  HAXFIL) 


F CF  * A ’ (29H0 ' 
GC  TC  1040 
IF  (“FICPT-: 


GC  Zr  1000 
RIAL  (30)  AFPFCN,: 
HPECPI=HPECPT» 1 
CCNTI NUF 


MXFIL,  JWD 

, U E S T E5  POF  IN  ACS  R CE ,315) 

1 0 , 10  30  , 1020 


FOP  FACH  ATP.  ^ A 17  ^ TYPE  COHPin-F  FRAC  USING  TENFORAL 
Dll  TPUTION  A S ' ' A Y S rCF  AIPCRAFT  ACTIVITY 


ACSRC024 
ACS  PC025 
ACSPC026 
ACSRC027 
ACSRC028 
ACSRC029 
ACS  SCO  30 
ACSRC031 
ACEPC032 
ACSSC033 
ACSPC034 
ACSSC035 
ACSRC036 
ACS  PCO  37 
ACSRCO  38 
ACS  RCO  39 
ACS  PC  04  0 
ACS  RCO  4 1 
ACSPC042 
ACSRC043 
ACS  PCO  4 4 
ACSRC045 
ACSFC046 
ACSPC047 
ACSRC048 
ACSRCD49 

ACSRC05O 

ACS  PCO  5 1 
ACSRC05  2 
ACSRC05  3 
ACSRC054 
ACSPC055 
ACSPC056 
ACSPCCS7 
AC  SRC058 
ACS  PC U 59 
ACSPC060 
ACSPC06 1 


30 


no  noonno  n non 


c 

N HI  = I H R2 

IF(IHF1.GT.  I HR  2)  NHI=24+IHR2 
H BS=  NHI -I H R 1 ♦ 1 
DC  5 1= 1 , NACTYT 
HRFRC=0. 

DC  4 J J = I H R 1 , N ! 1 1 
J=JJ 

IF  (J  J . GT . 24 ) J - JJ- 24 

4 HRFRC  = HFFFC  + AC1IP  (J,  I) 

HFFFC=HRFRC/HFS 

FRAC  (I) = ACfiO (I HO, I)  *ACEY  ( IDY , I) *HRF  RC *7. 0/DAYS* (1 . E+6/3. 6) 

5 CONTINUE 
8 N ACF I = C 

NB  = C 
NC  = 0 
NZ  = 0 

SET  UF  SQUARE  AREA  SOURCES  DUE  TO  AIRCRAFT  PARKING  AREAS 

DO  1 L= 1 , NFKAi 
NSQ=NF ASQ  (L ) 

S F A FSQ  = 0 . 0 
DO  2 0=1, NSQ 
N E = N E ♦ 1 

ACAP  ( 1 , N B)  = P A R E A (L,J,  1) 

ACAF  (2,  N B ) = PAFT'A(L,J,  2) 

ACAR  (3,NB)  = ACLNDZ/2. 

ACAF(4,NB) =PAREA(L,J, 3)  *1000. 

AIAFSQ(L,J)  = ACi.  R(4,NB)  **  2 
SFAFSC  = SPARSQ  ♦ APARSQ(L.J) 

ACAR  (5, NB) = A C L F D Z 
TACAR  (1 , NE)  =1  DPRK  A ( L) 

2 I AC  A F (2, NB)  =NSQ 
DC  91  J= 1 , N SQ 
NZ  = NZ ♦ 1 

91  FAFFCT(NZ)  = ArAPSQ(L,J)  / SPARSQ 
1 CONTINUE 

DC  93  1=1, NLSFGS 
93  NQ(I)=0 
NFKSRC=NB 
DC  3 L=  1 , NPKSPC 
DC  3 K=6 , NT 

HRACAR  (K-5, L) =0.0 

3 ACAR  (K,l)=0.0 
TVP=  EXP  (ALPHA  , 2) -BETA  (2) /TEAK) 

BEGIN  IOOP  CVE7  N RUNWAYS 

DC  10  N=1 ,NRNWYS 

IS  RUNWAY  USED  WITH  THIS  WIND  DIRECTION? 

IF  (IUSWD  (I WD, N)  . EQ.O)  GO  TO  10 
THET A = PNWY  (7, N) 

XO=0.25*DISRNW  (N) *SIN  (THETA)  + RNWY  (2, N) 

YC=C.2S*DISPNWN)  *COS  (THETA)  *RNWY  (3,  N) 

NTT=  N IBTT  (N) 

IF  (NTT .EQ.O)  GO  TO  SO 

BEGIN  LOOP  OVEP  J INBOUND  TAXIWAYS 


ACSOC062 
ACSRC06  3 
ACSPC064 
ACSPC065 
ACS  RC066 
ACSPC067 
ACS  PC06  8 
AC  SRC  06 9 
ACSRC070 
ACSRC07  1 
ACSPCQ7  2 
ACSRC07  3 
AC  SPC07  4 
ACSPC075 
AC  S RC  076 
ACS'>C077 
ACSPC078 
ACSRC079 
ACS  RC  08  0 
ACSRC081 
ACSPCC82 

Acspcoe  3 

ACSPC084 
ACSRCCPS 
ACSPCC86 
A C S RC  CP  7 
ACSPC088 
ACSPC089 
ACSRCOPO 
ACS  PC0Q  1 
ACSRC09  2 
ACSPC093 
AC  SRC 094 
ACSRC09S 
ACSPC096 
ACSRC097 
ACSPC098 
ACSRC099 
ACSRC100 
ACS  PCI  0 1 
AC  S RC  1C  2 
AC  SRC  1 0 3 
ACS  PC  1 0 4 
AC  SRC  1 0 5 
ACS  PC  1C  6 
A.CSRC107 
ACSRC1 08 
ACSRC109 
ACSPC1 10 
ACS  PC  1 1 1 
ACS4C1  12 
ACSRC1 1 3 
ACSRC114 
AC SRC  1 1 5 
ACS  PC  1 16 
ACSRC1 17 
ACS  PC  1 1 8 
ACS  PC  1 19 
ACSPC120 
ACS  RC 1 2 1 
ACSPC122 
ACS  PC  1 2 3 


31 


o n n non  non 


DC  11  .1  = 1,  NTT 

ACSPC124 
AC  SRC  1 2 6 

ANY  AIRCRAFT  ARRIVING  ON  THIS  RUNWAY? 

ACSPC126 

ACSRC127 

DC  7 I=1,NAC?YP 

ACSPC128 
ACS  PC  1 2 q 

IF  (TTARFR  (J , T , S) *APRFCN (23,1, N)  . GT.O. 0)  GO  TO  701 

ACSPC1 30 

7 

CONTINUE 

ACSRC131 

GC  TC  11 

ACSRC1  32 

70  1 

NSGINS  = NIBSFG  (J  , N) 

ACSRC1 33 

1 f G 1 N LOOP  i'VF!  K TAXIWAY  SEGMENTS 

ACSRC  1 34 
ACSRC135 

DC  12  K = 1, NSGINS 

ACSRC1  36 
ACSFC1 37 

1 T "•  i -MINT  LINE  SOURCE  GEOMETRIES 

ACSPC1 38 
AC  SRC  139 

JJ  = ITPSEG  (K,  J,  N) 

ACSRC 1 40 

ACSRC14 1 

If  <N(.  (JJ)  . N = .C)  GO  TO  ISO 

AC  S PC  1 4 2 

NC=  NC  + 1 

ACSPC143 

NO (JJ) = NC 

ACSRC144 

DC  121  L= 1 , 12 

ACS  F C 1 45 

121 

ACl  N (I , NC)  = ACLNSG (L , J J) 

ACSRC146 

ACL  N (9,  NC)  = 1 . 0 

AC?  RC  14  7 

At.  L N (10, NC)  =1.0 

ACSRC148 

ALLOCATE  AIPCFAFT  INBOUND  TAXIING  PGLLUIANT  EMISSIONS 

AC? PCI  49 
AC  SRC  150 

TC  Aft  POP  FI ATF  SEGMENTS 

AC  S PC  1 5 1 

DO  13  L = 1 , N FLTS 

ACSRC152 
ACS PC  153 

LL= l ♦ 1 2 

ACSRC  154 

1 3 

AC  L N (11, NC)  =0.0 

ACSFC1S5 

1 30 

N E = N C (JJ) 

ACC  RC 1 56 

DC  1 4 1=  1 , N ACT  Y P 

ACSPC157 

AA=FNGNO (I  ,1) 

ACSPC158 

IF  (IEGFLG.GT.O)  AA  = EN  GNO ( I ,2) 

AC  ? PC  1 ?9 

AFR  = TTARFF  (J,I,N) *ARRFCN(23,I,  N)  *ANNAFR  (I) 

ACSRC  160 

IF  (ARR.LF.0.0) GO  TC  14 

ACSRC 161 

TIMf=ACLN(11,NP)/(TXISFD(I  )*ACLNSG(9,JJ)) 

ACSPC162 

FPC=AA*ARF*TIME*FPAC (I  ) 

AC  SRC  16  3 

DC  19  L= 1 , N PLTS 

ACS  PC  16  4 

KK=l  + 1 2 

ACSPC165 

is 

ACLN  (KF, NT)  =ACLN (KK,NT) ♦ F PC* AC EHFC ( I , 2,L) 

ACSFC166 

14 

CONTI NUE 

ACSRC  16  7 

12 

CCN1 I N" E 

ACSRC 16  8 

END  TAXIWAY  SEGMENT  LCOP 

ACSRC169 
AC  SRC  1 ■’O 

rFTFFMINF  AIRCRAFT  INBCUND  PARKING  AREA 

ACS  °C  1 7 1 
ACSPC  1 7 2 
ACSKC173 

r SCCIATFD  WITH  TAX'W  AY  I ATH 

ACS  RC 1 7 4 

PC  16  I=1,NPK5SC 

ACSRC175 

ACSRC176 

i:=i 

AC  S RC  1 7 7 

TCrK  = IACAF ( 1 , I) 

ACSPC176 

IF  (IDFK.EQ.  IDTEPA  (.1,N)  ) GO  TO  17 

ACSRC  179 

1b 

CONTINUE 

AC  SRC  180 

PRINT  lb,  IDIFPA  (J , N)  ,J,N 

ACSRC  181 

If 

FORMAT  ( * C I NBCU  ND  PARKING  AREA  *13, 'OF  TA X I W A Y = • I 3 , ' ; 

RU  NW  A Y = ' I 3 , ' ACS  RC 1 S 2 

1 IS  NCT  CONSISTANT  WITH  PARKING  AREA  ID  NUMBERS') 

ACSPC1 83 

STCF 

ACSRC  194 

17 

CONT I NUF 

ACSRT195 

32 


non  non  n n n n n o n o o o 


21 

20 

19 

11 


C 

C 

C 

C 


32 


ALLOCATE  ALL  AJPCPAFT  IDLE  AT  SHUTDOWN,  REFUELING, 

APRIVAL  FUEL  VENTING  AND  SEPVICE  VEHICLE  EMISSIONS 
TC  APPROPRIATE  AREA 

NSQ=IACAF (2,11) 

DC  19  I = 1 , N ACT  Y P 

APR  = TTAPFR (J, I,N) * ARR  FCN (2  3, I, N) * ANN ARB  (I) 

IF (ARR. LE. 0.0)  GO  TO  19 
AA=FNGNO (1,1) 

IF (IEGFLG.GT.0)  A A = EN  G NO  ( 1 , 2) 

TIME  = SHTDNT  (I)  ,'60. 

FFC=AA*APR*TIKE*FRAC(I) 

TVP=FXP (ALPHA (JES1  (T)  ) - BET A ( JES 1 ( I ) ) / TEMK) 

DC  20  L=1,NSQ 

JJ=II+L-1 

DO  21  K= 1 , NFLT? 

K K = K ♦ 5 

ACAR  (KK.JJ)  = AC/.R(KK,JJ)  ♦ FRC* ACEMFC ( I , 1 , K ) * PARFCT(JJ) 

ACAR  (K  K , J J)  =ACAR(KK,JJ)  ♦ ( AP S V EM  (K , 1 , 1 ) + A RS VEM  ( K , 1 , 2)  ♦ 

. AFSVFM (K, I, 3)  i ARS VEM  (K, I ,4)  +ARSVEM  (K, 1,5)  ) * ARR  * FRAC(I) 

. * FARFCT(JJ) 

IF (K. EQ. 2)  ACAf  (K K , JJ) = AC  A R ( K K , J J) +(0.3*TVP»ACFUEL(I)*0.5 
1/10CO.  ♦ ACSPII  (I)  ♦ ARFLVT (I)  ) * AHR  * FLD E NS  ( JES 1 (I ) ) * FRAC(I) 

. * FARFCT(JJ) 

CONTINUE 
CONTINUE 
CONTINUE 
CCNII NUE 

END  INBOUND  TAXIWAY  LOOP 


BEGIN  LOOP  OVER  I AIRCRAFT  USED 
DC  30  1 = 1 , N ACTYP 

CALCULATE  RUNWAY  ARRIVALS  FOR  EACH  AIRCRAFT  TYPE 
ARR  = ARFFCN  (23,3  ,N) * ANN ARP (I) 

ANY  AIRCRAFT  ARRIVING? 

IF  (AFP. LE. 0.0)  GO  TO  30 

SET  UP  LINE  SOURCES  FOR  APPROACH  AND  LANDING  MODES  7,  8 AND  9 
AND  ALLOCATE  POLLUTANT  EMISSIONS 

AA  = ENGNC (I,  1) 

DC  31  J=1 ,3 
DO  32  K= 1 , 3 
KK=K+KC 
JK=6*K-6+J 

ACLN  ( J , KK) =ARRFCN (JK,  I,N) 

ACLN  (J  *5, KK) =ARRFCN (JK  + 6, 1 ,N) 

CONTINUE 
JJ=NC+J 
JK=6* J-2 

ACLN  (4, JJ) *ARP1  CN (24,  I,N) 

ACLN  (5,JJ) =DEPf CN (29,  I,  N) 

ACLN  (09, JJ) = AFP FCN (JK,I,N) 

ACLN  ( 10, JJ)  = ARR FCN (JK+6, 1 , N) 


ACSFC196 
ACS  PC  1 97 
AC  SRC  1 88 
ACS  RC 1 8 9 
ACSPC190 
ACSPC19 1 
ACS  P C 1 9 2 
AC  SRC  1 9 3 
ACS  RC  1 9 4 
A.  CSPC195 
ACSRC196 
ACS  RC  1 97 
ACSRC198 
ACSRC199 
ACSPC200 
ACS  RC  20 1 
ACSRC202 
ACSRC203 
ACSPC204 
A.  CSRC205 
ACSRC206 
AC  SRC  207 
ACSRC208 
ACSRC209 
ACSPC21 0 
ACS  PC  2 1 1 
ACSRC21 2 
ACSRC21 R 
ACSPC21 4 
ACS  RC  2 1 5 
ACSRC216 
ACSPC217 
ACS  RC  2 1 8 
ACSPC219 
ACSRC220 
ACSRC22  1 
ACSRC222 
ACSPC223 
AC  S PC  22  4 
ACSRC229 
ACSPC226 
ACSRC227 
AC  S PC  2 2 9 
ACS  CC  229 
ACSRC230 
ACSPC231 
ACS  PC  23  2 
ACSRC23  3 
ACSRC234 
AO  S PC  23  9 
ACS  PC  236 
ACSPC237 
ACSRC23R 
ACSRC239 
ACSFC240 
ACSPC24 1 
ACSPC242 
ACS  RC  24 3 
ACSRC244 
ACSPC245 
ACSPC246 
ACS  RC  247 


.33 


n n r, 


ACLN  ( 1 1,JJ)  =ARRPCN (JK*1,I,N) 

A:LN (12,JJ) =AP RFCN (JK*2, I , N) 

JM0EF=J*6 

DC  3 3 F= 1 , N PLTS 

K K = K + 1 2 

ACLN (KK, JJ)  =AA *ACEM  FC  (I, JHODE,  K)  *ABR*ARRFCN  (J K ♦ 2 , I , J ) * FR AC  ( I ) 

33  CONTINUE 
31  CCNTINUF 
NC=NC*3 

SET  UF  IINE  SOURCES  FCP  TRAINING  FLIGHT  OPERATIONS 
AM  A I LOCATE  FOLL'JTANT  EMISSIONS 

IF (ANNTGO(I) .LE.0.0)  GO  TO  30 
NC=  NC* 1 

ACLN (1,NC)  = XP ( XO , TGO  ( 1 , 1 , I ) , T H ET A ) 

ACLN (2, NC) =YP (YO, TGO (1,1,1) , THETA) 

ACLN  (6  , NC)  = XP  (XC,TGO(  1 ,2,  I)  , THETA) 

ACLN (7, NC) =YP (YO,TGO  (1,2,1)  , THETA) 

ACLN (1 , NC*1 ) =ACLN (6 ,NC) 

ACLN (2,NC*1)  ACLN(7,NC) 

ACLN  (6  , NC  + 1 ) = X 0 
ACLN  ( 7 , NC*  1 ) = YO 
AC I N (1 , NC*2) =XO 
ACLN(7,NC*.  = YO 

ACLN (6 ,NC*2) =XF (XC, 0. 304  8,  THETA) 

ACLN(7,NC  + 2)=YP(YO,0.  304  8 , THETA) 

ACLN (1 , NC*3) =ACLN (6 , NC*2) 

ACLN(2,NC*3) =ACLN(7,NC*2) 

ACLN  (6  ,NC*3)  = XP  (XO.TGC  (1 , 3,1)  , THETA) 

ACLN  (7, NC*3) =YP  (YO,TGO (1, 3,1)  , THETA) 

ACLN  ( 1 ,NC*4) = ACLN  (6 ,NC*3) 

ACLN  (2, NC  + 4 ) =ACLN (7,NC  + 3) 

ACLN  <6,KC+4)=XP (XO.TGO (1 , 4,1)  , THETA) 

ACLN(7,NC*4) =YP  (YO, TGO (1,4,1)  , THETA) 

ACLN  (3, NC)  = API HT* 1000 . 

ACLN  (8,NC) =APPHT2 (I)  * 1000  . 

ACLN  ( 3 , NC  + 1 ) = A P PHT  2 (1)  *10  00. 

ACLN  (6, NC*1 ) = ACLNDZ/2 . 

ACLN  ( 3 , N C ♦ 2 ) = ACLNCZ/2 . 

ACLN  (8, SC*2)= ACLNDZ/2. 

ACLN  (3 , NC+3) = ACLNDZ/2 . 

ACLN (8 , NC*  3 ) = COHT 1 (I)  *1000. 

ACLN  (3, NC*4) =COHT1  (I)  *1000. 

ACLN  (8,NC*4) =CLHBHT* 1 000 . 

ACLN ( C 9 , NC) = APS  PCI  (I) 

ACLN  (10, NC)  - AP SPD2 (I) 

ACLN  (1  1 ,NC)  -TGO  (2,1,1) 

ACLN  (12, NC)  =TGC  (1,  1,1) 

ACLN (09, NC* 1) = APSPD2 (I) 

ACLN  ( 1C,  NC*  1)  = L NDSPD  ( I) 

ACLN  (1  1 , NC* 1) - TGC (2,2  , I) 

ACLN  ( 12,  NC*  1)  - TGO  (3,2,1) 

ACL  N (C°, NC*  2 ) =LNCSFD(I)*1.3 
ACLN  (10, NC*2) =TOSPD (I) *0.7 
ACLN  ( 1 1 ,NC*2) =0.  3048 

ACLN  (12,NC*2)  =2.0*0. 3048/  (1.  3*LNDSPD  (I)  *0.7*TOSPD(I.'  ) 

ACLN  ( C 9 , N C ♦ 3 ) = TOSPD ( I ) 

ACLN  (10,NC*3)=COSPD1  (I) 

ACLN  ( 1 1, NC*  3) = TGO  (2, 3,1) 

ACLN (12, NC*3) =TGO (3, 3 , I) 

ACLN (09, NC *4) =COSPD1 ( I) 


ACSPC248 
ACSRC249 
ACSPC250 
ACSBC251 
ACSPC252 
ACSPC253 
ACSRC254 
ACSPC255 
ACSRC256 
ACS  PC  257 
ACSPC258 
ACS  PC259 
AC  ? PC  26  0 
ACS  PC  26  1 
AC SRC 26  2 
AC  SRC  26  3 
ACS  P C 26  4 
ACSPC265 
ACSPC266 
AC  S PC 26  7 
ACS  RC  26  8 
ACSPC269 
ACSRC270 
AC  S PC  27  1 
ACS  PC  27  2 
ACSRC27  3 
ACS  RC  27  U 
ACSRC275 
ACS  PC  276 
AC  SRC  277 
ACSRC278 
AC  SPC  2 79 
ACSPC280 
ACSRC281 
ACSFC282 
AC  S sc  28  3 
AC  SPC 284 
ACSRC28S 
AC  S RC  286 
ACS  PC  287 
ACSPC288 
ACSRC289 
AC  S pc  29 0 
ACSPC29  1 
ACS  FC2°  2 
AC  SPC  2Q  3 
ACS  PC  29  4 
ACSRC295 
ACS  RC296 
AC  SPC 297 
ACSRC298 
ACSRC299 
ACS  pc  300 
AC  S PC  30  1 
AC  SRC  30 2 
ACSPC303 
AC  S RC 304 
ACS  PC  30  S 
AC  spc  30 6 

ACSPC307 
ACSRC308 
ACS  RC 309 


34 


ono  nnnooo  noonoo  n n n 


34 


35 


36 


ACLN  ( 10,  NO 4)  = COS  PD  2 (I) 
ACLN  <1 1 , NC  + 4) = 'GO (2,4 ,1) 
ACLN  (12, NC  + 4) = TGO( 3,4 , I) 
DO  45  J= 1 , 5 
JJ=NC+J-1 

ACLN  (4, JJ) =ARRECN (24,  I,N) 
ACLN  (5,JJ) =DEPFCN (24, I fN) 
GO  TO  (34 ,35,4 1 ,36, 37) ,J 
KE  = 7 

GO  TO  36 
KC  = 8 

GO  TO  38 
KD  = 5 

GO  TO  38 


37  KD  = 6 

38  DO  39  K=  1 , N PLT  1 
KK=  K+  1 2 

39  ACLN  (KK, JJ)  =ANCTGO  (I)  * ACEM  FC  ( I , KD  , K) * A R RFC  N (23,1 , N)  *ACLN (1 2, JJ)  * 
1FFAC  (I)  * A A 

GO  TO  45 

41  DO  42  K=1,NPLTS 
KK=  K+  1 2 

42  ACLN  (KK,JJ)  = A A * (0.  3+ACEMFC  (1 , 9 , K)  ♦ 0 . 7 * ACE  MFC  ( I , 4 , K)  ) * 

1 ANNTGC  (I)  * ARR^CN (2  3, I , N)  *ACLN  (12, JJ)  *FRAC  (I) 

45  CONTINUE 
NC=NC+4 
30  CONTINUE 


END  AIRCRAFT  100P 


50  NTT=N0BTT (N) 

IF  (NTT  . EQ . 0)  GO  TO  10 

BEGIN  LOOP  OVER  J OUTBOUND  TAXIWAYS 

DC  51  J= 1 , NTT 

ANY  AIRCRAFT  DEPARTING  ON  THIS  TAXIWAY? 

DC  6 1=1 , N A C T Y 3 

IF  (TTDPFR  (J, I,N) +DEPFCN (23,1, N)  . GT.  0. 0)  GO  TO  601 
6 CONTINUE 
GO  TO  51 

601  NSGLNS  = NOBSEG  (,1,N) 


BEGIN  LOOP  OVID  K TAXIWAY  SEGMENTS 


DC  52  K=1,NSGLWS 

SET  UP  SEGMENT  LINE  SOURCE  GEOMETRIES 

JJ=ICBSEG(K,J,N) 

IF (NC (JJ) . NE.0,  GO  TO  131 
NC  = NC ♦ 1 
NQ (JJ) =NC 
DC  122  L= 1 , 1 2 

122  ACLN (L, NC) = ACLHSG  (L,  J J) 

ACLN  (9  ,NC)  = 1 .0 
ACLN (10, NC) =1.0 

ALLOCATE  AIRCRAFT  INBOUND  TAXIING  POLLUTANT  EMISSIONS 
TO  APPROPRIATE  SEGMENTS 


ACSRC310 
AC  SRC  3 1 1 
ACSRC312 
ACSRC31  3 
ACSPC314 
AC  SRC  3 1 5 
ACS  PC  316 
ACSRC317 
AC3PC318 
ACS RC 319 
AC  SRC  320 
ACSPC32  1 
AC  S RC  322 
ACS  RC  32  3 
ACSRC  324 
ACS  PC  325 
ACSRC  326 
ACSRC  327 
ACSPC328 
AC  SVC  32 9 
ACS  RC  3 30 
AC  SRC  33 1 
ACS  RC  3 32 
ACSRC  333 
ACSRC334 
ACSRC335 
AC  SRC  3 36 
ACS  PC  3 37 
ACSRC  338 
ACSPC339 
AC  SRC  34  0 
ACSRC  34  1 
AC  SRC  3i*  2 
ACSRC34  3 
ACS  RC  34  4 
AC  SRC  34  5 
ACS  PC  34  6 
ACS  RC  34  7 
ACS  RC  34  8 
ACSRC3U9 
AC  SRC  350 
ACSRC 351 
ACSPC352 
ACSPC353 
AC  S RC  354 
ACSPC  355 
AC  SRC  35e 
ACSRC  35? 
ACSPC358 
ACS  RC  359 
AC  S RC  360 
ACS  RC  36 1 
ACS  RC  362 
AC  SRC  36  3 
ACS  RC  36  4 
ACSRC  365 
ACS  PC  366 
AC  SRC  367 
ACSPC 3 68 
ACS PC 36 9 
ACSRC  370 
ACSRC  37 1 


35 


no  noon 


c 


S3 

131 


S5 

54 

52 

C 

C 

C 

C 

C 

C 

C 


56 

57 


58 


6 1 
60 
59 

51 


C 


DC  53  L=  1 , N PLT S 
LL  = L»  1 2 

ACL  N (LL, NC)  =0,0 
ND  = NC  (JJ) 

DC  54  I=1,NACTYP 

DEP=TTDPFF  (J,T  , N)  *DEPFCN  (23, 1,  N)  * ANN DEP  (I) 
IF  (DHP.LE.9.0)  00  TO  64 

AA=ENGNC  (I,  1) 

IF  (IEGFLG.GT. 0)  AA=ENGNO(I,2) 

TIME  = ACLN(11,N0)  / TXtSPD(L) 

F PC  - A A * DEP*TIME*FRAC  (II 
DO  5^  L= 1 , N PLT  S 
KK=  L+  1 2 

ACLN  (KK, ND)  = ACLN(KK,ND)  *FRC*ACEMFC(I,2,L) 

CONTINUE 

CONTINUE 

END  I A XI A Y SFGMENT  LOOP 


DETERMINE  AIRCRAFT  OUTBOUND  PARKING  AREA  ASSOCIATED 
WITH  TAXI  WAY  PATH 


AC  S RC  372 
ACSPC373 
AC  SFC  37  4 
ACS  FC  37  5 

ACS PC 3 76 
ACS  PC  37 7 
ACSRC3V8 
ACSPC379 
ACSPC380 
ACSRC38 1 
ACSPC382 
ACS  PC  38 3 
ACSPC384 
ACSPC385 
ACSRC386 
ACS  PC  387 
ACSPC388 
ACSRC384 
AC  S RC  390 
ACS RC 391 
ACS  PC  39  2 
ACS  PC  39  3 
ACS  PC  9Q4 


DC  66  1= 1 , N PK SRC 
II  =1 

ICPK  = IACAP  (1,1) 

IF  (ILPK. EQ.  IDGPFA ( J ,N) ) GOTO  56 
CONTINUE 

PRINT  57 , TDOBP A (J , N)  ,J,N 

FORMAT (22HCCUTB0UND  PARKING  AFEA,I3,11H  OF  T AX IW AY , 13 , 8H , RUNWAY, 
. 13, 4 7 H IS  NOT  CONSISTENT  WITH  PARKING  AREA  ID  NUMBERS) 

SIOP 

A I LOCATE  ALL  ATPCPAFT  IDLF  AT  STARTUP,  DEPARTURE  FUEL 
VENTING  AND  SERVICE  VEHICLE  EMISSIONS  TO  AI PROPRI AT  E AREA 


ACSFC395 
ACSRC396 
AC  S RC  3 97 
ACS  PC  398 
ACSRC399 
AC  S RC  4 0 0 
ACSPC40  1 
A C S P C 4 0 2 
ACS  RC40  7 
ACSRC404 
ACSRC405 
ACSPC406 
AC  c RC4 0 7 


NSQ'T  ACAR  (2 ,11  ) 

DO  59  T= 1 , N ACT  Y ? 

DEP=TTDPFF ( J , I , N) * DEP  F CN (23,1, N)  *ANNDEP(I) 

IF (DEP. EQ. 0.0)  GO  TO  59 
AA  = ENGNC  (I,  1) 

IF  (IEGFLG.GT.O)  A A = EN G NO  ( 1 , 2 ) 

TIME=SFTUPT (I) /60. 

FRC  = AA*  DEP*  TIME  * FRAC(I) 

TVP=EXF (AI  PHA (JES1  (I)  ) - B ET A ( JE S 1 ( I ) ) / TEMK) 

DC  60  L=1,NSQ 
JJ  =11  +L-1 
DC  61  K= 1 , N PLTS 
K K = F * 5 

ACAF  (KK, JJ)  - AC  A R ( K K , J J)  + ((FF<C  * A C E MFC  ( I , 1 , K)  ) 

. ((DFSVEH(K,1, 1)  * TPSVEM(K,I,2)  + DPSV EM  (K , 1 , 3 ) ♦ 

. * DF  ? VE“ (K , I , 5 ) ) * DEP  * FFAC  (I ) ) ) * PARFCT(JJ) 

IF  (K.EQ.2)  ACAR  (KK , JJ)  = ACAR(KK,JJ)  + DPF'LVT(I)  * 
. JE S 1 (I ) ) * EPAC(I)  * PARFCT(JJ) 


ACS PC40  8 
ACSRC409 
ACSPC410 
AC  SRC 41  1 
ACSPC4  1 2 
ACSPC4  1 3 
ACSRC414 
ACSPC415 
ACSPC4  16 
ACSPC417 
ACSRC418 
AC  SRC 4 1 9 
ACSRC420 
AC  S RC  4 2 1 
ACSPC422 
DPSVEM (K, 1,4)  ACcPC423 
AC  9 PC  4 2 4 
DEP  * FL  DENS  ( A C S F C' 4 2 5 
ACSPC426 


CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 


ACSPC427 
ACSPC428 
ACSRC429 
AC  S CC  4 IP 


END  OUTBOUND  T A XT  VI  A Y LOOP 


ACSRC43  1 
ACS  PC 4 3 2 


ACS^C4  Y 3 
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NE  = NB+  1 

ACSPC434 

ACSPC435 

SET  UP  AREA  SOURCE  AT 

TAIL  OF  RUNWAY  AND  ALLOCATE 

ACSPC436 

ENGINE  CHFCK  EMISSIONS 

TO  IT 

ACS  RCU  37 
ACSRC438 

ACAR  ( 1 , N B ) = R N V Y (2,  N)  - . 

05  * SIN (THETA) 

ACS  pc  4 

ACAF  (2,NF)  = RNWV  (3,  N) 

05  *COS  (THETA) 

ACSPC44  0 

ACAF  (3, NB) = ACT  NDZ/2. 

ACSPC44  1 

ACAR  (4,NB)  = 1CC.0 

ACS  PC44  2 

ACAR(5,NB)=  ACTNDZ 

ACSPC44  3 

DC  65  K=1,NPLTS 

ACS  PC44  4 

KK=K+5 

ACSPC44  5 

65 

ACAF  (KK, NB)  =0.  f 

ACSPC446 

DC  66  1 = 1 , N ACT 1 P 

ACSPC447 

DEP=DEPFCN (23, T,N) *ANNDEP  (I) 

AC5PC448 

IF  (DEF.EQ.0.0)  GO  TO  66 

ACS  PC449 

AA  = FNGNO  (I,  1) 

ACSRC450 

IF (IEGFLG.GT.O)  A A= EN GNO  ( 1 , 2) 

ACSPC45 1 

TI  ME  = F.GCHKT  (I)  /60. 

AC  c PC45  2 

FRC=  TIMF  *DEP*AA*FRAC (I) 

ACS  PC  45  3 

DC  67  K= 1 , N ELT5 

ACSPC454 

KK=K+5 

ACSPC455 

67 

ACAF.  (KK,  NE)  =ACf  R (KK,NB)  + FRC*  AC  E MFC  (1 , 3 , K) 

ACC  PC456 

66 

CONTINUE 

ACSRC457 

10 

CONTINUE 

ACSPC458 
AC  S PC 45  9 

END  RUNWAY  LOO!’ 

ACSBC460 
ACSRC46  1 

NACAF=NB 

ACSPC462 

NC 1 = NC 

ACSPC463 

69 

N C = N C 1 

ACSPC464 

ACSRC465 

BEGIN  LOOP  OVER  N RUNWAYS 

ACSRC466 

ACSPC4&7 

DC  79  N=1,NPNViS 


ACSRC46P 


IS  PUBWAY  USED  WITH  THIS  WIND  DIRECTION? 

IF(IUSWD(IWD,N)  .SQ.01  <30  TO  79 
BEGIN  LOOP  OVER  I AIRCRAFT  USED 
DO  70  1=  1 , N ACT YP 

CALCULATE  RUNWAY  DEPARTURES  FOR  EACH  AIRCRAFT  TYPE 
DEP=DEPFCN (23, T,N) *ANNDEP (I) 

ANY  AIRCRAFT  DEPARTING  FROM  THIS  RUNWAY? 

IF  (DEP.EQ.0.0)  30  TO  70 

CALL  DEPART  TO  CALCUI ATE  POINTS  IN  TAKEOFF  PATH  ACCORDING 
TC  CURRENT  METEOROLOGICAL  CONDITIONS 

CALL  DEPART  (N, T) 

A A=  E NG  NO  (I  ,1) 

SET  UP  LINE  SOURCES  FOR  RUNWAY  ROLL  AND  CLIMBOUT  MODES  1 AND 
AND  ALLOCATE  POLLUTANT  EMISSIONS 

DO  71  J=  1 , 3 


ACSPC469 
ACSRC470 
ACS  PC4?  1 
ACSRC472 
AC  S RC  4 7 3 
ACS  FC  47 4 
ACSPC4"’5 
ACS  RC476 
AC  S RC 4 77 
ACSRC478 

ACSPC47U 

ACSRC480 
AC  S PC  4 4 1 
ACSPC482 
ACSPC483 
ACSPC484 
ACSPC4R5 
ACSPC4R6 
ACSPC487 
ACSPC488 
ACS  RC48  9 
ACSRC490 

ACS  P C4  0 1 
ACSPC492 

ACSPC49  3 

ACSPC4UU 

ACSRC495 
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DO  72  K=1,  3 
KK=K+  NC 
JK=f*K-b+J 

ACLN (J, KK) =DEPFCN (JK, I ,N) 

72  ACLN (J  + 5.KK) =DEPFCN  (JK  + 5,  I ,N) 

JJ=NC*J 
J K = t *J-2 

rACLN  (14,  JJ)  =ARFFCN  (24,  I ,N) 

ACLN (S,JJ) =DEPFCN (24, I,N) 

ACLN  (09, JJ) =DEPPCN (JK,  I,N) 

ACLN  ( 10,  J. I)  =DEPFCN  (JK*6,I  , N) 

ACLN ( 1 1 , JJ) =DEPFCN (JK+ 1,1, N) 

ACLN  ( 12, JJ) =DEPFCN (JK+2,1 , N) 

J MODE  r J + 3 
DC  73  K= 1 , N FLTS 
K K = K ♦ 1 2 

ACLN  (KK,  JJ)  =AA*  ACEH  PC  (I,  J MODE,  K)  «Dc.P*DEPFCN  (JK+2, 1 , N)  * FR  AC  (I) 

73  CONTINUE 
71  CONTINUE 
NC=NC+3 
70  CONTINUE 
C 

C END  AIRCRAFT  LOOP 

C 

79  CONTINUE 

FND  FUNWAY  LOOP 


N AC  l N = NC 

FETURN 

END 


ACSPC496 
ACSRC497 
ACS  °C  4 9 8 
ACSRC499 
ACSPC500 
ACSPCS01 
ACSPC502 
AC  SPC50  3 
ACSPC504 
ACSPCS05 
ACS  PC506 
ACSRC507 
ACS»CS08 
ACS  PC509 
ACSRC510 
ACSRC51 1 
ACSPC512 
ACSRCS1 3 
ACSPCS14 
ACS  PCS  1 5 
A C s RC  5 1 6 
ACS  RC5  1 7 
ACSPC518 
ACSPC51 9 
ACSPC520 
ACSRC521 
ACSRC522 
ACSPC52  3 
AOS  RC  524 
ACSPC525 
ACSPC526 
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FUNCTION  AINE 


Purpose : 

1.  To  translate  the  line  and  receptor  coordinates  to  an 
x-axis  along  the  wind  vector,  placing  the  origin  of  the 
line  at  its  low  end. 

2.  To  set  up  the  necessary  parameters  for  the  OWL  and  QNDD 
routines. 

3.  To  determine  the  concentration  due  to  the  given  line. 

Input : 

The  current  wind  direction  and  speed,  and  the  receptor  and 
line  source  data. 

Output : 

The  concentration  computed  by  the  line  source  diffusion 
model  adjusted  for  wind  speed. 

Subroutines 

Called: 

CAVL 
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FUNCTION  AINF  (<-’D) 

THIS  FUNCTION  TRANSLATES  THE  LINE  AND  kECEPTOR  COORDINATES  TO  AN 
X-AXIS  ALONG  THE  WIND  VECTOR,  PLACING  THE  ORIGIN  OF  THE  LINE  AT 
ITS  ION  END.  THE  VEHICLE  MOVES  FROM  (X1,Y1,Z1)  TO  (X2,Y2,Z2) 

COMMON  /M  FT/  W S , WSN PH , I H S , HX , I HD , SI NEWD ,COSE HD , JST A B , HL I D, TE MF, 
. TFMK 

COMMON  /RCPT/  N R ECSP , R ECEP  (2, 3 1 2) 

COMMON  /INFO/  I IECEP, IHNDIR, ITX PE, HT A ERO, X 1 , Y 1 , Z 1 , K , D ELZ , X2 , Y2, 
. VI, V2,DL,TIME, EMIS (6) ,NPOL 

COMMON  /LN/  XW1  , Y W 1 , Z W 1 , XH 2 , Y » 2, Z H 2 , SUDOY , SU DCZ , I A D , T A I L , A , V 1 2 , 
. HS2,HSC, RR, Sr, XST, YST,ZST ,XND, YND, ZND 
DATA  PI  32/4 . 7 1 2 3890/ 

CCNC  = 0. 

IF  LINE  IS  ABOVE  LID,  DO  NOT  CALCULATE  CONC 
IF  (ZH  1 .GE.HLID- .5)  GO  TO  60 

TRANSLATE  LINE  AND  RECEPTOR  TO  AXIS  OF  HAN  DIRECTION 

H A N=  PI  32- WD 
C S A N = C 0 5 (HAN) 

SNA  N=  ST  N (WAN) 

XH2=  (X2-X  1)  *CSAN+  (Y2-Y  1) *SNAN 
YK2=  (X1-X2)  *SNAN+  (Y2-Y 1) *CSAN 
XR  = RECEP  (1 , IRECEP)  * 1000. 

YE  = PECEP (2, IRFCEP)  * 1000. 

ZST=ZW1 

z n r - z w 2 

IF  (Z1  . I.E.  Z2  ) GO  TO  5 

X W 2 = - X W 2 

X ST=  X H2 

YW2--YH2 

YST-YW2 

XND=0.0 
YND- 0.0 

XRCP=  (XR-X2) *CSAN+ (YR-Y2)  *SNAN 
YPCP=  (X2-XP)  *SNAN  + (YR-Y2) *CSAN 
GO  TO  B 
5 CONTINUE 
XST=0 . 0 
Y ST  = 0 . 0 
X ND=  X H 2 
YND=YW2 

XRCP=  (XR-X1)  *CSAN+(YR-Y1) * SNA  N 
YRCr=(X1-XR)  *S  N A N ♦ (YR-Y1)  * CS  A N 
8 CONTINUE 
ZPCP  = 2. 

IS  THIS  A UNIFOPM  LINE  SOURCE 

SO  IF  (IAD.EQ.O)  GO  TO  500 

CORRECT  FOR  TAIL  EFFECTS  IF  ARRIVAL  OR  DEPARTURE 

CSA  = - X W 2 / DI. 

WSC  = 2 * HS  ♦ CSA 
EXT  = TAIL  / DL 
DX  = X W 2 ♦ EXT 


AI NE0000 
AINEOOO  1 
AINE000  2 
AINE0003 
AINE0004 
ATNE0005 
AINE0006 
AI NE0007 
AINE0006 
Z2, AINE0009 
AINE001G 
V S , A I N E 0 0 1 1 
AINEOO  1 2 
ATNE001  3 
ATNE001  4 
AINEOO  15 
AINE0016 
AINE0017 
AINE001 8 
AINE001 9 
AINE0020 
AI NE002  1 
AINE0022 
AI NE002  3 
AIN  E0024 
AT  NE0025 
AINE0026 
AI NE0027 
AI NE0028 
AINE0029 
AINE0030 
AINEOO 3 1 
AI NE003  2 
ATNE003  3 
AINEOO 34 
AI NE0035 
AIN  F00  3fc 
AI NE0037 
AINE0038 
AI NE0039 
AINE0040 
AINF004  1 
AI NE0042 
ATNE004  3 
AINE0044 
AINE0045 
AI NE0046 
AINE0047 
A I NE004  8 
AI NE0044 
AINE0050 
AI NE005  1 
ATNE0052 
A I NEOO  5 1 
AINE0054 
AIN  F0055 
AI NE0056 
AINE0057 
A1NE0058 
AINE0059 
AINE0060 
AINE006  1 
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FUNCTION  AREAWT 


Purpose : 

To  calculate  the  area  weighting  factor  to  account  for 
the  fraction  of  the  source  seen  by  the  receptor. 

Input : 

1.  Distance  from  receptor  to  pseudo  source  origin. 

2.  Adjusted  source  to  receptor  distance  measured  from 
the  center  of  mass  of  that  part  of  the  source  seen. 

3.  Source  diameter  and  radius. 

Output : 

The  area  weighting  factor,  AREAWT. 

Procedure : 

1.  Set  AREAWT  = 1.0  if  receptor  sees  all  of  source. 

2.  Calculate  AREAWT  if  receptor  is  outside  of  the 
source  but  sees  only  part  of  it, 

3.  Calculate  AREAWT  if  receptor  is  inside  of  the 
source . 

Subroutines 

Called: 

None 


43 


i F\(  I'lON  AREAWT  ( XD , DSRP , SI)  I AM , SRAD,  PI8) 


AREAWT  =1.0 


/ XD:  ^ 

DSRP  + SDIAM 

\ TTF% 


RECEPTOR  SEES 
ALL  OF  SOURCE: 

RETURN  ) 


RECEPTOR  IS  INSIDE 
SOURCE: 


DSRP  < 
/T  -SRAD 


RECEPTOR  IS 
OUTSIDE  SOURCE 
BUT  SEES  ONLY 
PART  OF  IT: 


aSR  = DSRP2  - SRAD2 
DSR  = /HSR ' 1 


i AREAWT  = DSR' 


mm 


RETURN 


n o n n n n n non  n n 


FUNCTION  AREA  7 ( X D,  DS R P , S D I AM  , S P A D , PI 8) 

0 

C THIS  FUNCTION  CALCULATES  AREA  WEIGHTING  FACTOR  TO  ACCOUNT  FOR  TH* 
C FRACTION  OF  THF  SOURCE  ’SEEN*  BY  THE  RECEPTOR 
C XD  IS  DISTANCE  FROM  RECEPTOR  TO  PSEUDO  SOURCE  ORIGIN 

C DSRP  IS  ADJUSTER  SOURCE-RECEPTOR  DISTANCE  MEASURED  FROM 

0 THE  CENTER  0°  'ASS  OF  THAT  PART  OF  THE  SOURCE  'SEEN' 

SDTAM,  SRAD,  P;«  "RE  SOURCE  DIAMETER,  RADIUS  AND  PI/8 

A REA VT=1 . 0 

•WEIGHTING  FACTOR  TS  1.0  IF  RECEPTOR  SEES  ALL  OF  SOURCF 

IF  (XD.EQ. osnp*-DT AM/PI  8)  RETURN 
IF  (DSRR. LB.  1 . u \ 1356*SRAD)  GOTO  10 

RECEPTOR  IS  OUTS’:  DE  SOURCE  BUT  SEES  ONLY  PART  OF  IT 
AREA  SEEN  IS  APPDOXTMATED  BY  ASSUMING  THE  SECTOF  CONE  LIES 
COMPLETELY  WITHIN  THE  SOURCE  SUCH  THAT  THIS  AREA  IS 
GIVCN  BY  SD  I A M*DS  R*  PI8  SO  THE  RATIO  IS  DS  R * P IP/SD I A M '-'HERR 
DSR  IS  THE  ACTUA . SOU RCE- PEC EPT OR  DISTANCE 

DSR=DSRP* OSRP- SRAD* SRAD 
DSR=SORT (DSR) 

A R EA'W  T=DS  R*  PIR  /SDI A M 
PFTURN 
1"  CONTINUE 
C 

C P FCEPTOP  TS  INSTDF  SOURCE,  AREA  SEEN  IS  . 5*  (DSR ♦ SR  A D) * * 2*P 18 , 

C RUT  DSR  + SRA  D=SOR'.’ (2)  *DSRP,  SO  AREA  IS  PI8*DSRP**2 
C 

AREAWT=RIR*  (DS^P/SDI AM)  **2 

RETURN 

END 


ARAWTOOO 
ARA'WTOO  1 
ARAVT002 
ARAWTOO  3 
AP  AWTOO  4 
ARAWTOO 5 
AP  A WTO  0 6 
A B A V T 0 0 7 
ARAWTOO  8 
AR A WTO 09 
AR A WTO  10 
A R A WTO  1 1 
AR A WTO  1 2 
AR  A’WTO  1 3 
A PA  WTO  1 4 
ARA  WTO  1 5 
APA  WTO  16 
ARA WTO  1 7 
AP  AW TO  1 8 
AR  A VTO  1 q 
AR A WTO  20 
ARAWT02  1 
ARA  WTO 2 2 
ARAWT023 
A RA  WT024 
A R A w T 0 2 S 
APA WTO 26 
AP  A W T 0 2 7 
ARA  '-’TO  2 8 
APAWT129 
ARAWTO 30 
ARA WTO  3 1 
ARAWTO  3 2 
ARA WTO  3 3 
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BLOCK  DATA 


Purpose : 


To  initialize  data  in  common  blocks. 


Input : 


None 


Output : 


None 


nnnnnnnnn  n n n non 
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ELOCK  I AT  A 

INITIALIZE  DAI  A IN  COHHCN  BLOCKS  FOE  LONG  TEEN  HODEL 
PEAl*e  FOLNAH 

CCNNCN  /ANNNET/  T B A R , A C D , F A, P A X , V Sb A E , DT B AE 

CONMCN  /CONS/  P 14 , P 18 , P1 1 6, KPE , A H XH T (6 , 6 ) , A XCEI T (b , 0 ) 

CCNNCN  / DEFALT  / IT  APE, ACLN  DY , ACLNDZ , ALPHA  (7)  , BETA  (7)  , FLDENS  (7) 
COHHCN  /LN/  X N 1 YN 1 , Z N 1 , X W2 , Y W2 , ZW2 , 5UD0Y , S UDOZ , I AD , T AIL, B , V 1 2 , VS 
. MS2,VSC,ER,SP,-<A1,AA^,AA3,AA4,AA5,AAb 
CCNNCN  /HETSET/  WN DFR C (6 , 1 6,  6)  ,U 0 (b)  , S INN  D ( 1 b)  , COSW D ( 1 6) 

CCNNCN  /SECE/  N POL , NE NPT , N EN AF , NE NLN , N A BPT, NAB AR, NA BLN , N ACPT , 

. NACAB,NACLN,ENFT (16,  100)  , £N A R ( 1 1 , 1 00)  , EN LN  ( 1 4, 20)  , A bPT ( 1 6 , 1 50)  , 

. ABAE  (11,  100)  ,ASLN  (14,100)  , ACPI  ( 1 6 , 1)  , AC AR(  11,24)  , ACL  N ( 1 6 , 25  G) 
CCNNCN  /TITL/  POLN  AH  { 6)  , TITI.  E 1 (20)  , i PCHOS  ( 6),NXPOL,IP 
CGHHCN  /WNDESC/  XP  (6) 

CCMHON  /DSTRBT/  ACNO  ( 1 3, 8 ) , AC D Y (2 , 8)  , ACHR  (2 4 , 8 ) , VHNLNO  ( 1 3)  , 

. VHHIDY  (2)  , VHHLI'R  (24)  , CVAENO(13)  ,CVABDY  (2)  , CVABHR  (24)  ,CVENNO  (13)  , 
. CVENDY  (2) .CVENFfi  (24)  , FLMO  (13,7)  , FLDY  ( 2, 7) , FLH R ( 24, 7)  ,NC1 


BLKDT000 
BLKDTOO  1 
BLKDTOO  2 
BLKDTOO  3 
BLKDT004 
BLKDT005 
SLKDT006 
BLKDTC07 
BLKDT006 
BLKDT009 
BLKDT01 C 
BLKDT01  1 
8LKDT0 1 2 
BLKDTC1 3 
BLKDTO 14 
BLKDT015 
BLKDT016 
BLKDT017 
BLKDT018 
ELK  DT019 


STATEHENTS***************************BLKDT02C 


DATA  E 14  , PI  8 , PI ' 6 /. 7 653982, . 392b99 1 1963496/ 

FATA  X W 1 /0.0/,YW1  /0 . 0/  , TAIL  /149./ 

DATA  XF/0. 2, 0. 2, 0.2 ,0 .3,0. 4,0. 4/ 

DATA  ALPHA  /II.  70365,  11.  10b75,  12.42382,  1<:.  687b9,  13.b87, 

. 13.C38,  13.024  / 

DATA  BETA  / 2868.54,  3129.5187,  3276.  8848,  5 108 . 4 1 94 , 53 29 . 1 3 9 , 

. 4789. 3C1,  4782.209  / 

DATA  FLDENS  / 0.695,  0.773,  0.693,  0.842,  0.824,  0.807,  0.807  / 
DATA  ACLNDY,  ACLNDZ  / 20.0,8.0  / 

DATA  IT  APE  / 21  / 

DATA  FCLNAN/8H  CO  ,8H  HC  ,8H  NOX  ,8H  PT 
. 8 H SC2  ,8H  ECL6  / 

DATA  ENPT,ENAR,ENLN,ABFT,ABAR,ABLN,ACPT,ACAR,ACLN  /12b60*0.0/ 

DATA  NENET,NENAR,NENLN,NABPT,NABAB,NABLN, NACPT, NACAR , N ACLN /9*0 . 0/ 

COSED  (IWNDIR)=C05 ( ( FI  * FLO  AT  ( I H N DI R-  1)  ) /8) 

DATA  CCSWD/1. 0, .92388,. 70711,.  38268 , 0 . 0 , - . 3 8268, - . 7 07  1 1 , 92  388, 

1 -1.C,-. 923 88, -.70711, -.38 268, 0.0,. 38268, . 70711 ,. 92388/ 

SINWD (IWNDIR) = S I N ( (PI*FLOAT  (IUNDIB-1)  )/8) 

DATA  S I NW D/0 .0, .38268, .70711, . 92388,1 . 0, . 9^388, .707  1 1 ,.  38268,0.  0, 
1 -. 38268, -.70 71 1 ,-.92388,-1.0,-. 92386, -. 707 1 1 ,-. 38268/ 

HIND  SPEED  CORES EO NCI  KG  TO  AF  MIND  CLASSES 

DATA  UU  /. 77175, 2. 8297, 5.  145,7.9747,  1 1.062,  13.691/ 

END 


BLKDT02  1 
BLKDT022 
BLKDT023 
BLKDT024 
BLKDTO  25 
BLKDT026 
BLKDT027 
BLKDTO 28 
BLKDT029 
BLKDT030 
BLKDT03 1 
BLKDT032 
BLKDT033 
BLKDT034 
BLKDT035 
BLKDT036 
BLKDT037 
BLKDT038 
BLKDT039 
BLKDT040 
BLKDT04 1 
BLKDT042 
BLKDT043 
BLKDT044 
BLKDT045 
BLKDT046 
BLKDT047 
BLK DT048 
BLKDT04  9 
BLKDT050 
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FUNCTION  CAYL 


Purpose: 

To  compute  the  coupling  coefficient  at  a receptor  due  to  a line 
source . 

Input : 

Meteoro logical  conditions:  wind  speed;  stability;  mixing  height; 
critical  distance  for  vertical  mixing;  psuedo  downwind  distances 

for  horizontal  and  vertical  spreads  of  the  line  source. 

i 

Source  parameters:  end  point  coordinates  of  the  line  (X-axis 
has  been  chosen  to  be  along  the  wind  vector) ; I AD  flag  for 
uniform  or  non-uniform  line. 

Receptor  coordinates. 

Output : 

GAVL,  the  coupling  coefficient. 

Procedure : 

1.  Test  whether  the  receptor  is  located  WLth  respect  to  the 
line  source  such  that  the  concentration  is  negligible. 

2.  If  the  angle  between  the  wind  vector  and  line  is  sufficiently 
small,  and  the  line  is  sufficiently  long,  set  a flag  for  the 
line  to  be  segmented. 

3.  Compute  effective  downwind  distance  and  the  horizontal  and 
vertical  dispersion  coefficients. 

4.  Determine  factor  to  he  used  in  subdividing  the  line. 

5.  Test  whether  the  line  has  a uniform  density.  If  it  is  a 
runway  used  for  aircraft  arrival  or  departure  (non-uniform 
density),  call  subroutine  QMOD. 

b.  Determine  the  proper  expression  to  be  ised  and  compute  the 
concentration  due  to  the  line  segment. 

T.  Test  whether  further  segments  need  be  considered.  If  not, 
output  the  concentration  for  the  given  receptor. 
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Functions 

Called: 

SIGY,SIGZ ,DIFERF 


Subroutine 

Called: 


FUNCTION  CAVL(XR,YR,ZR) 


| INITIALIZE  ISUB , NSUB,  I SAC, 

I CBAR , DUD A,  AND  OTOT  TO  ZERO; 
AND  SEGL  TO  1.0 

SET  WS36  = WS*3600 
HLIDM  = HLID 
QL  = l./DL 


INITIALIZE  XI ,Y1,Z1,X2, 
XI, 11  TO  TIE  INPUT 
COORDINATES  OF  THE  LINE, 
XW1 , . . . ZW2 


1 

USING  THE  CURRENT  XI, X2  AND 
Y1,Y2  END  POINTS  CALCULATE  DL1 , 
HE  LENGHI  OF  THE  LINE  ALONG 
HE  WIND  VECTOR 


! 


I 


Si) 


DLRS  = DL1 
COS0  = DL1/DLN 
SIN0  = (Z2-Z1)DL\  ! 
SIN<j)  = (Y2-Y1)/DL1 ! 


/IS  \ 
"RECEPTOR 
UPWIND  OF 
/LINE  / 
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CALCULATE  DOWNWIND 
DISTANCES  AND  TRAVEL  TIMES 
FOR  PSEUDO  UPWIND  END  OF 
LINE: 

DWDA  = XFAR+SUDOY 
DWT)B  = XFAR+SUDOZ 
TEAR  = DWDA/WS36 
TFBR  = DWDB/WS36 
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ARE  THE 

Y AND  2 COORDS.  OF 
THE  RECEPTOR  WITHIN  3 
TIMES  TH1-;  DISPERSION 
COEFF.  OF  THE  Y AND  Z 
COORDS.  OF 
^ LINE, 


YES 


SET  (X , Y)  AS  TIU-:  POINT  ON 
THE  LINE  WHERE  THE  CROSS- 
WIND  DISTANCE  IS  THE 
LEAST  AND  THUS  IMPACT 
IS  THi:  GREATEST 


DWD  = 

= nwDi 

COMPUTE 

PSEUDO  DOWNWIND 

DISTANCES 

DWDY1 

= DWD1+SUDOY 

DWDY 

= DWD+SUDOY 

DWDZ 

= DWD+SUDOZ 

S3 


DWDY1.DWDY 
OR  DWDZ 


SET  THE  Z COORD 
OF  THE  LINE  TO 
CORRESPOND  TO  (X,Y) 


USE  PREVIOUSLY 
COMPUTED  VALUE 
FOR  SI GUI 


DtVDA  or 


CALCULATE  TRAVEL  TIME, 
THRH1  = IMJY1/WS36 
AND  CALL  SI GY  FOR 
DISPERSION'  COEFF.  SIGH1 


ELEM  = MAX(.2*DWDY1,SIGH1) 


1*ELEM 


EIEM  = MIN (ELEM, EMIN) 


LINE  MUST  BE  DIVIDED: 

I SUB  = 1 

XRS  = (X2-X1) 

YRS  = (Y2-Y1) 

ZRS  = (Z2-Z1) 

YES  ^ 

is\ 

X2  = XI 

DL1  > 

Y2  = Y1 

\ 1.5-ELEM 

USE  PREVIOUSLY 
COMPUTED  VALUE 
FOR  SIGH 


CALCULATE  TRAVEL  TIME, 
THRU  = DWDY/WS36 
AND  CALL  SIGY  FOR 
DISPERSION  COEFF.  SIGH 


CALCULATE  TRAVEL  TIME, 
THRV  = DWDZ/WS36 



AND  CALL  SIGZ  FOR 
DISPERSION  COEFF.  SIGV 

COMPUTE  EXPRESSIONS  TO 
BE  USED  IN  APPROXIMATIONS: 
DENH2  ,DENZ2  ,D 


COMPUTE  ARGUMENTS  OF 
EXPONENTIAL  FUNCTIONS  FOR 
VERTICAL  DISPERSION  USING 
SMALL-  ANGLE  APPROXIMATION 
ARGZ1.ARGZ2 
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■ ^inrn.  arcumiots  op  i 

iiRROK  n NCI  IONS  TOR  i 
!!ORi:a\TAl  )I SPiiRS ION : J 
\!.,BA1  ,BAJ 


lawm  ,\k  ;;i  and 
kw;;:  tor  general 

RQUA'l  [ON 


T 


_____  J 

awrni:  xsi  as  the 

MSTANC!  BETWEEN 

(X  .V  ,Z)  ANT)  THE 

ORU  INAI.  ST.WING  ! 
POINT  01  no:  LINE  i 
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NSUB  = 1+DLRS/ELEM 
RSUB  = NSUB 
SEGL  = DLRS/RSUB 
DELX  = XRS/RSUB 
XI  = X2 
Y1  = Y2 
Z1  = 11 
X2  = X2+DELX 
Y2  = Y2+DELY 
11  = Z2+DELZ 
DLRS  = DLRS-SEGL 
XRS  = XRS-DELX 
YRS  = YRS-DELY 
ZRS  = ZRS-DELZ 
X = 1/2 (X1+X2) 

Y = 1/2 (Y1+Y2) 

Z = 1/2(Z1+Z2) 


i 
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1 


DENZL  = 0.47*HL1DM 
DENZL2  = DENZL2 


on  non  ononoo  non 


■ 


c 

c 

c 

c 


c 

c 


FUNCTION  CAVL  (XS,YR,ZP.) 

T H I S FUNCTION  COMPUTES  THE  F0LLUTANT  CONCENTRATION  DUE  TO  A 
FINITE  LINE  SOL’FCE 

COMMON  /MET/  VS, VSMPH  , IWS ,VD, IWD , SI NEW D , COS EHD, JS T AB, HLTD, TEKF, 

. T EM  K 

COMMON  /INFO/  I PECEP , IHNDI P , I T Y PE , HT A ERO, X5 , ¥ 5 , 25 , W , D LLZ , X 6 , Y6 , Zt 
. V 1 , V2 , DL , TI*F, FMIS (6 ) ,NPOL 

COMMON  /LN/  XW1  , YW  1 ,Z  W1,  XV2,  Y V2, ZW2, SUDOY  ,SUDOZ,  I AD,  TAIL,  B,  VI  2,  VS 
. V S2  , BSC , F R , F P , X S T , YS  T , Z S I , X N D , Y N D , Z N D 
COMMON  /XTR  AN / KZ , VSMD.TY ,TZ 
DATA  COEF1  / . 3 9 8 34 / , COFF 2 /. 31831/ 

DATA  CAN/C. 1071/, EMIN/9.  1 4 U/ 

INITIALIZE  COUNTERS,  CL  AGS  AND  V ART AbLES 

I S U E = C 
N SU  B=  0 
ISAC=C 
LSAC=  0 
C P A E = 0 . 

D W D A = 0 . 

OTOT  = 0 . 

SEGL  = 1.0 
WS3b=WS*3600. 

HLI DM=HLI D 
OL  = 1./DL 

INTRODUCE  A GENERAL  S ET  OF  NOTATION  SO  THAT  THE  SAME 
DISPEFSICN  CALCULATION  CAN  PE  USED  FOR  THE  SMALL  ANGLE  CASE 
BHEBE  THE  LINE  IS  FURTHER  SEGMENTED.  X1,Y1,Z1  NOW  nEFEF  TO  THE 
LOW  END  OF  THE  LINE. 

X 1=XK  1 

Y 1 = Y W 1 
Z1=ZV1 
X 2 = XW  2 

Y 2 = Y W 2 
Z 2 = Z W 2 

XMAX  = AMAX1  (XI  ,X2) 

CALCULATE  LENGTH  OF  LINE 

5 DLX  Y = (X2-X1)  * * 2*  (Y2-Y  1) **  2 
PL1  = SCFT  ( D L X : ) 

IF  (PI1.FO.0  AND. Z1 . EQ.Z2) GO  TO  bCO 
DLXi Z=DLXY+  (Z2-Z1) **2 
DIN=SCPT (DLXYZ) 

IF (ISUB.NE. 0)  GO  TO  6 

THE  FIFST  TIME  THRU,  CALCULATE  ANGLE  OF  ELEVATION,  THETA, 

AND  ANGLE  PELATIVE  TO  THE  X-AXIS,  PHI 

DL  PS- PL  1 
CSTH=DL1/DLN 
SNTH=  ( Z 2 - 7. 1 ) / D L N 
FFC J L- Y2- Y 1 

IF (ABS (PPOJLi  . LT.  1 . E-  20)  PPOJL  = 0 . 

SNFI=FPCJL/D^1 
ASN  F = ABS (SNFI) 


c a v : r o r n 
CA VLA00  1 
Ca  V LOOP 2 
CA  '/  L 0 0 A 3 
CA  VL0004 
CA VL0005 
OVEO  006 
C A V LO  ICR 
CAVL0008 
C A V L 0 A 0 U 
CAVLOO V 
OAVL001  1 
C A V I ^ A 1 2 
CA  VLOO  1 3 
C A V L A 0 1 4 
CAVLa015 
CAVE 0016 
C A V 1 0 0 1 R 
C A V L 0 A 1 8 
CAVIR01R 
CARLO  0 20 
CARLO  021 
C A V L 0 0 2 2 
CAVL0023 
CAVE 0024 
CA VL002S 
CAVL0026 
CA VLAC27 
CA  V 1 0 A 2 B 
CA  V LA  C2B 
CA  V IC  C 30 
C A VLO  R 3 1 
C A V I A 0 3 2 

C a R L A A 3 t 
C A V I 0 0 3 4 
CAVLC035 
C > V E R 0 3 6 
CA VL003R 
CA  VLR  0 3H 
CAVLC03Q 

CAVLOOUO 
rA VL0041 
C a v I 0 R 4 2 

CARLC04  R 
CA VL004U 
CAV 10045 
CAVL00U6 
CB  VLO04R 
CAVL004H 
CAVL0R45 
CARL005O 
CAVL00S1 
CAVL0052 
CA VI 005  3 
CA VL0054 
C A R E C 0 5 5 
CAR! OR  56 
CART  005-1 
C A R 1 0 0 5 8 
CA  VICR'10 
CA VLRObO 
C A V L R R p 1 
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- 





n n 


FIND  HIGH  AND  LC'V  -NDS  OF  LINE  AS  PROJECTED  ON  THE  X-Y  PLANF 
6 CONTINUE 

IF (Y  1 .GT. Y2)  GO  TO  1 
YH  = Y2 
YL^Y  1 
GC  TO  2 

1 Y H = Y 1 

Y 1 = Y 2 

2 CONTINUE 
C 

C TEST  THE  P^CEPTCP  LOCATION  FFLA.TIVE  TO  THE  LINE  SOURCE 
C 

XMIN  = ANJ  N 1 (X  1 , X 2) 

IF  ((XMIN-XP) . GF.  0 . 5)  GO  TO  cO0 
C 

C FECEP1GR  IS  DOWNWIND,  FIND  DISTANCE  TO  UPWIND  END  OF  LINE 
C 

XFAR=XR-XKIN 

C 

C STOP!  PPEVIOUS  VALUES  AND  COMPUTE  NEK  DOWNWIND  DISTANCES 
C ANT  TRAVEL  TINES  FOP  PSEUDO  UPWIND  END  OF  LINE 

C 

DNDAC=DVDA 
S IGFO=SIGF 
rWDA=XFAF*SUDCY 
DWDF=XFAP+SUDCZ 
TEAP=DWDA/WS36 
T F9h - D WDB/ V S 36 
C 

C CONFUTE  UPWIND  END  DISPEPSTON  CO EfF ICI E NT S 
C 

SIGF - SIGY ( JST  A F , Tp  A P) 

SIGFZ  = SIGZ  (JSTA.  5,TFPP) 

C 

C STOPF  IINE  COGPDINA. TES 
C 

IF  (X  1 . LE  . X2)  GO  TO  21 
X A = X 2 

Y A = Y 2 
X F - X 1 
YF  = Y1 
ZE  = Z 1 

GC  TO  22 

21  X A.  = X 1 
YA  = Y 1 
XP- X2 

Y P = Y 2 
Z?  = Z2 

22  CONTINUE 

IF  (I  SAC. EC.  1)  GO  TO  4 
C 

APE  v AND  Z 'COFCS  -IF  RFCEPTOP  WITHIN  u TINES  THE  DISPEhSICN 
C CCEEFICIFNT  0 " H 7 Y AN?  Z CC7°DS  CF  THE  LINE 
C 

IF  (YF.GT.  (YH*4.*SIGF)  ) GO  TO  c00 
IF  (YF.LT.  ( Y I - U . *SIGF!  ) GO  TO  *00 
IF  UR.GT.  (Z2*4.  *STGF7)  ) GOTO  SCO 
IF  (Z R.  LT.  (2 1-P. *SIGFZ) ) GC  70  500 

IF  ( A SNF  .LT.  ‘AN  .AND.  ABS(SNTH)  .LT.  CAN)  GO  TO  3 
IF  (TAC.NE.O)  GO  TO  1 
C 


CAVL0U62 
C A V LO  06  3 
CAVL0D6U 
CAVI0065 
CA  V LO 06 6 
CAVL0Q67 
OA  VI. 006  8 
CAVL0069 
CA  V L7  0 7 0 
CA VLOC7  1 
C A7L0072 
C A V L 0 0 7 3 
C A V LO  07  4 
CA  VI.007S 
C A V L 0 0 7 6 
CA VLOO77 
C A V LO  0 7 8 
CA  V I7  07 9 
CA VL0080 
CAVL0081 
CA 7 LOO 82 
CAVL0087 
CAVL0084 
CA VL008S 
CAVLU086 
CAVI.C087 
CAVL0088 
CA  VL0089 
CA  VLP0O0 
C A VI  0 79  1 
CAVI0092 
CA VL0C°  3 
CAVL0°9H 
CA VL0C9S 
CA VL009F 
C>  VL0097 
C A V L709° 
CA  VI D099 
c A V L7  1 9 0 
CA  VL  1 1 7 1 
CAVI01U2 

CAVL0103 
CA  VLO  104 
CAVL0105 
CA VLO  106 
CA VLO  1C7 
CAVL017Q 
C>  VI  7 IC'D 
CA  V LO  1 10 
CA VI  0 1 1 1 
CA VL7  112 
CAVI01T3 

CAVLC 1 m 
CAVL711* 
C » V ! 7 1 1 6 
CAVI,7  11V 
CAVL7  118 
C A V L 7 119 
CA V LO  120 
7 A V 1 o 1 2 1 
CAVLoi?2 
CAVIO  123 
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C ANGIE  IS  LARGE:  ARE  TH  F RECEPTOR  COORDS  WITHIN  3 TIMES  THE 
C DISPERSION  COEFFICIENT  OF  THE  LINE  COORDS. 

C 

TF  (YR.GT.  (YH+3.*SIGr)  ) GO  To  600 
IF(YP.IT.  (YI-?.*SIGF)  ) GO  to  SCO 
IF  (ZF.GT.  ( Z 2 *3 . *SIGFZ) ) nr  TO  500 
IF  (ZR . LT . (Zl-3.*SIGFZ))  GC  TO  500 
C 

C SET  (X , Y ) AS  POINT  ON  LINE  WHERE  IMPACT  IS  GREATEST 
C 

X = X1+  (YR-Y1)  * (X2-X1) / (Y2-Y1) 

IF  (X.GT.XP)  GC  TO  33? 

IF  ( X . L I . X A)  GC  "O  3 3 

Y = YE 

GC  TO  4 
C 

C ANGIE  IS  SMALL:  REDEFTNE  I IN?  COORDS  AND  SET  (X,Y)  AS 
C MIDPOINT  OF  SEGMFNT 
C 

3 IF  (ASNF.LT. 0. 1 . AND.  (ABS  (SNTH)  ) . LT.O. 1)  LSAC=1 
T SAC=  1 

30  X = A M I N 1 (XP, X\) 

Y 1 = Y 1 ♦ (X-X1) * (Y2-Y1)  / (X2-X1) 

Z1  = Z1*  (X-X1 ) + (Z2-Z1) / (X2-y 1) 

X 1=  X 
X 2=  XB 
Y2  = YB 
Z2=ZE 

X = 0 . 5* ( X 1 + X 2) 

Y = 0 . 5 * (Y  1 + Y23 
GC  TC  c 

33  X = X A 

Y = Y A 
GC  TC  4 

333  X = X B 
Y=YB 

COMPUTE  DOWNWIND  DISTANCE 

4 DWD=XF-X 

IF  (DWD.LT. -.01)  GO  TO  30 
DKD 1=DWD 

IF  (ISAC. NE. 1)  GO  TO  40 
DWD 1 = X F-X 1 

IF  (NSUB.LE.1)  PWD=  DW  D 1 

COMPUTE  PSEUDO  tOWN'-'INP  DISTANCES 

40  DWDY  1 = DWD 1 + SUDOY 
DWDY  = rViD+S1irOY 
DWDZ=DWD+SODOZ 

SET  Z CCCRDINATF  OF  LINE 

IF  (X  1 . FQ. X 2 ) GO  TO  44 
Z=Z1+  (X-X1) * (Z2-Z1) / (X2-X1) 

GC  TO  444 

44  Z = Z1+  (Y-Y  1)  * (Z2-Z1) / ( Y2-Y 1) 

444  CONTINUE 
C 

C CONFUTE  TRAVEL  TIMF  AND  DISPFPSTON  COEFFICIENT  EOF 
C PSEUDC  DCKNVIND  DISTANCE 


CAVLO  124 
CAVL0125 
CAVL?  126 

CAVL01?o 

CA VIM  12° 
CAVLO 12 9 
CAVLO  1 GO 
CAVLO 1 ’ 1 
CAVLA 1 32 
C A V L 0 1 G G 
C»  VLO  1 34 
C A V L 0 1 3 5 
CAVLO  13  6 
CAVLO  1 3 o 
C i V I r ’38 
CA.  VI  A 1 gq 
CAVLO  140 
CAVI"  14  1 
CAVLO  14  2 

CAVLO  14  3 
CAVLO  144 
CAVI 0 145 
C.s  V1A  146 
CAVLO  147 
C A w L r'  1 4 3 
C » V 1 0 1 4 4 
CA  VLn 150 
CA VLO  1c  1 
CAVLA1C'2 
C A V !.  o 1 S 3 
CA  V L° 1 6 4 

rfVI" 155 
C A V T ' 156 
CAVLO  157 
CAVI A 15° 
C A V L 0 1 5 Q 
C A.  v T A 1 6 A 
C A V L n 161 
CAVLO  16 ? 
CAVLO  163 
CAVLA  164 
CAVLO  16  5 
CAVI 0 1 66 
CAVLO  16  0 
CA  VI.  6 16« 
CAVI.  016? 
CA  VLO 1 VP 
CAVLO 17’ 
C A V L 0 1 7 0 
CAVIO  17  3 
CAVLO 174 
CAVE'-  10  6 
C AVT  o 106 
CA VLA  1 77 
C A V T 0 1 7 <3 
CAVLO  174 
C A V L 0 1 4 0 
CAVLA 1« 1 
CAVLO 132 
CAVLO  13  3 
CA  VLO  134 
CAVLO  135 
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If  (DVDY  1 . EQ.  PC'DA)  10  TO  4 11 1 
If  {IKDY1.SQ.DVDA0)  GO  TO  4113 
THFH 1 =CWDY 1/VS 36 
SIGH  1 = SI li  Y (J3T.«  "HP  H 1) 

4 *_  1 1 CONTI  NUF 

DETFFMINE  FACIOf  TO  3E  'JSEP  IN  SIJ9-DIVJMNG  THE  LINE 

ELFf  = AHAX 1 (0. . ♦DVDY 1 , SIGH  1) 

IF  (IAC.NF. 0)  T.1AC-1 

IF  (TCAC. EQ.  1)  Ft  . “ . 1 * FLS" 

If  (FLEH.LT.FKIN)  FL  ?!1 1 ENT  K 

BRANCH  IF  AKGLP  IS  ««*!  I *ND  LINE  m'T’PC!  IS  LON;. 

IF  ( I A 0 . N E . 0 ) 00  ”0  a 2 1 1 
IF  (ASNF.GF.CAN)  30  TC  4 ">  12 

4111  If  (L  L 1 . II.  (1 . c *FL  FN)  ) iO  Tn 

CON  I FIT  f TFAV--  an  DIFFFSVN  . . ! VI  I1.  If  NT  LOR  PS-113,, 

V CAl  31  CTAS> 

431.  :i  ([. vdy  . f ;■  y n 1 T un 
THFH  - I IIY/.s  ' 

SIO.H-  SIGY  (.1  FT/  F , • ■-  .j) 

4.  12  CC NT  I Nil! 

THFV  : V>t)Z/'Jc  H 
SIGV-  .:  IG7  (JF'rA4,  ■?? v> 

Fxrr-f  sstcns  to  k-  ";:-  r in  afp°ox  i.nations 

DLNH2  = 2. * S I G H * * 2 
DfNZi=2.*FIOV**2 
p = I ; 1 » si  gv 

! UNENTI  01  HX1  NENTTAI  F*I  NCTlON  FOR  VERTICAL  DISPEf 
USING  T A L ’ ANGtF  A f ’ P F 'XITAT1rN 

AFGZ1--  (Z&-Z1)  » >.  /PEN  Z2 
A F ' ; z 2 --  (ZW.n  * * .:  / P E N 7 2 

1 r ( I ; AC  . E 3 . 1 ) ;r>  Tn  4 4-1 

GC  TC  4uS 
4 111  F TO  H 1 - FIGF 
GC  TC  4211 

4112  SIGIjrFTGHI 
GC  jr  4 *12 

4 113  SIGhl-St'i  v0 
GC  TC  4211 

' ! AS:  • FUNCTION  f .. 

fi  c s : 7 c s : a L r n 

4 us  CCNTINUF 

1 ....  . ; v ♦ * • v •••..♦  ’ if**. 

PA  FG  = v FT  (APG) 

A - F A F (>/  ( 1 . 4 1 4,  * i) 

AL- I L N*A 

AFC  1 - < YP  - Y1 ) *(  ~ r!i*SN'  1*3  IOV»* 

AfG.  1 (ZP-Z1)  * N:'!‘StGH**. 

APG,  c--~  {/.i  + Z 1)  *.1N  TH*S  IGH**2 
P A 1 -(All  in:  . 1)  / ( 1.  4 1 4.  *P«F  A PG) 


rA  VLO  1 86 
CA  V LO 1 8 1 
C A V L P 18« 
CA  VL I 189 
CA  VIC  100 
C A VLP  10  1 
CA  VI.0  192 
CAVLA193 
C A V L .11  0 U 
CAVL01OS 
nA VI C 1 96 
A VLC  1 ip 
A V L 0 19  8 
A V I ",  1 0 O 

CA VI p 200 
CA  VL0  20 1 
A V I 0 20  2 
'A ''Li  2A  1 
ca  v:  p 2r  4 
CA  VLO  2" S 
• A V L " 2 0 6 
CA  VL p 2A  7 
C A V L 0 ?o  8 
CAVM2CQ 
A VI  " ? IP 

C A.  V 1 ' 2 1 1 
CAVL’212 
C A V L P 2 1 1 
CA  V!  O ' 1 4 
'AVI'  CIS 
C A V L p 2 1 6 
C A 'i  l o 2 1 1 
CA  VLA 21  8 
i VLP ? 10 
C A 7 L p 2 2 0 
C » v l 1 2 2 1 

'AVi  -i?2? 
o?  VI  A22  •» 
CA  VT  ' >2  4 

nav:  2pc 
a V 1 2 3* 
AVL P22P 

c A ” 1 ' 1 u 

CA  w t 1 ' . 
AVL  '2  10 

A V l p 3 •'  1 
A V ! ' 2 > 2 
K t vT  p 2 1 1 
AVI  ' ' 14 
. A V l ' ' 1 r 
C A V 1 VIS 
' A V t 1 3 1 7 
'AVI  3 1 4 

c A \M  p ? 1 0 
a v • " 2 4 p 
A'1!  '24  1 
r A V ! p 2 4 2 
Cl  VI 0 24  1 
'A"’  0244 
AVI  p 3 4 c 
C A V 1 " 24  6 
C AVI  P.'aO 


BA2=- (AFG1+ ARG22) / (1.  4142*F»F ARG) 

C 1 = (YR-Y  1)  * * >/D5NE2-a  EG?.  1 
C2=  (Y  R- Y 1 ) **3/DENH2-AFGZ2 
C 

C A 3GB  WE  NTS  OF  EXPONENTIAL  FUFCITCSS  FOR 
USING  THF  GENE  3 A L EQUATION 

C 

ARGZ1=PA1**2-C1 
A F GZ  2=  EA  2 * * .:  -C2 

4 46  I F (AFGZ  1 . I T . • 10 . ) GOTO  2411 
IF (AFGZ2.GF.  -10.)  GOTO  2412 
F AC  1 = E XP  ( A R G C 1 3 
F A C 2 = C 
GC  TC  39 

2411  if  (AEGZ2.LT. -19)  GO  TO  rC0 
FACING 

FAC2=EXP(ARGZ2) 

GC  TO  39 

2412  IF  (rXD.GT.XZ,  GO  TO  100 


CAVL9249 
CAV!  ">24° 
CA" 19290 
C A V L 9 2 9 1 

VERTICAL  DISPERSION  CA,,l02c? 

CAVL0293 
C A V I 0 2 9 4 
CA  V L 0 2 9 ° 
CIVICS 
CAVLP257 
CA',L''29’- 
"jv;.;  °9° 
C A V T o 2 6 ' 
C AVI  9 OF  1 
C A V I 9 2 6 2 
CAVL926  3 
CAVE  9 26 4 
CA VL9?6C 

C A V IT  29  9 


C 

C D(  VNV'IKO  DISTANCE  IS  LFSS  THAN  THE  CRITICAL  DISTANCE:  ONLY 
C SOURCE  AND  GROUND  REFLECTION  AFF  CONSIDEFED 
C 

FAC1-EXF  (ARG  II) 

FAC 2 = EXP  (AEG  12) 

3°  CONTINUE 
C 

C FINE  Hit  LINEAR  DISTRIBUTION  Or  POLLUTION  ON  THE. 

C FUNWAY  FrF  IAN01NG  AND  TAKF-OFF 


c;v'T26i 
CAV’ ^ 26  a 
CA  V T ^ 26° 
CAVLQ 2V9 
C A V L o 2 " 1 
CAVL02"’'’ 
C A V L 9 ?7 3 
CAVL°274 
CA  V L°  27  c 
' A V L 0 2 7 b 


C 

X S 1 2 = (X-XST)  **2-i  (Y-YST)**2+(Z'ZSI)  * * a 
XSI  = SCFT  (XSI 3) 

IF  ( X * X ND . LT . J.OP.Y*YNC.LT.O.C?.Z  + ZND.LT.O)  XSI  = - XSI 
IF  ( I A F .NE.  0)  CALL  QMOD (XSI, QL) 

QTOT  r C TOT  + QL  *S  EGL 
c 

C STOFF  LAST  VALUF  OF  CPA R 

C 

CEA  EC=CE AF 

IF  ( L ? AC  . EQ.  1;  GO  TO  90 
C 

C GENFFAL  ClfFFF.RION  EQUATION 
C 

FJ1-FAC1*DIFEFF  (BA  1 , » L) 
rJ2-FAC2*DIFEFF  (EA  2 , A L) 

CEA  F = CFA.P  + 0 . 3 9399*COF  F 1*Q1  * ( F J 1 + F J 2 ) / ( A * D ) 

499  TF  (CEAFO.EQ.C)  GO  TO  49 

IF  (AES  ( (C6AR4-C8AR)  /CEAR)  . LF.  , 00910)  GO  TO  bOO 
49  CONTINUE 

IF  (NSUP.GT.  1 . AND. DLPS.GT.  ( . 0 1 * D L)  ) GO  TO  60 

GC  TO  600 

NALL  -ANGL^  A P ?I  0 X I M A T I ON 

C 

A YY  - (YF-Y1)  * * 2/  D E N H 2 
F (APGYY.LT. -10.)  30  TO  5C0 

F A C = 0 . c*  (FAC1»FAC2) 

EFAl  = EXF  (APGYY) 

CFAFrCFAR+C0EF2*QL*DLN*FAC*P?AC/D 
GC  TC  499 
C 

C ANGIE  IS  SMALL  AND  SOURCE  TS  LON'. 


CA  VI.  7 27i 
~ A V L ° 2 7 0 
C&. VLO  27° 
CA  vi.n  2°r 

C A V I 6 2 P 1 

C>  VI’' 28  2 
CA VLO  29  » 
CA  V L9 2P 4 
C s VI  12°  ° 
O A V L 1 2 0 ‘ 
C A V L 9 1 a "I 
C?VLrt’>R° 
CAVI 929° 
0 A V " 2 ° r 
CA  VLO  29 1 
'"AVI  0 2 9 2 
C'  A V ' 3 2 9 4 
CAVI  o 
C A V L ''  39  ° 
C A V l 0 2 0 6 
CAVI  40 7 
CAVL0248 
CAVI ' 29° 

CAVI0 300 
CAVI 4 70  1 
C A V IT  3 0 2 
CAV ’.OR''} 
CAVI. 4 444 
C A V I 0 R 0 9 
"A VLO  306 
C A V I 4 ;_M 
CAVL1344 
C A V L o 3 1 <3 


c.  c.  t cm  l - i 

(AVi 1 310 

CAVl1  .31  1 

XFT  X2-X1 

Y?S  = Y 2-Y 1 

CA.  VL"  ?12 

CAVLO  31  3 

ZF?^  2 2 - Z 1 

CA  VLO  314 

X ^ - X 1 

Y - Y 1 

Z <:  = r 1 

CAVL  T 3 1 c 

CAVLO  ?1S 

c 

CAVLO  317 
CAVL" 313 

c 

C ' ■ ' ' } C(  (i ! D I N A T F'  F c *F  NEXT  LINE  5EGHFNT 

CAV10  313 

L 

CAVLO  320 

t o Nsut  i . + :n  ps/f l e m 

CAVLP321 

FSUF-NFH? 

CAVL0122 

SEGI=OLFS/RPir- 

CAVL 0323 

I'FIX -- XFC/FS'JB 

CA  V LO  3?U 

DFLY  = YBS/FSUF 

CAVLO  32S 

OEtZ^ZES/pFUp 

CAVLa ’26 

>'  1 = X t 

CA" LP327 

Y 1 = Y 2 

CAVLO 1 2 8 

7 1=  2 ^ 

CAVL’'  323 

X2=XI+EELY 

CAVL 1330 

Y2=Y2+DELY 

CAVL0331 

Z--  ?2-*-CLLZ 

CP"  LO 332 

0L‘-S  = riF3-5FG'. 

CAVLn?33 

XF5~XFF-PFLX 

CA  Vi  p 3 34 

YES  YFS-DFLY 

CP  v la 

7FS- 1FF-DFLZ 

CAVLO 3 36 

X-  . c'«  ( X 1 + X2) 

CAV'.0’37 

Y=  . c * (Y1  + Y2) 

CAVLO?  38 

C 

2-  . *•*  (Z1*L2t 

CAVLO 5 i 3 

CAVLO  ’40 

C 

• i ac  r t u,,:ir.  :omt  :-i  mn  ton  Eton  next  e sgk  i.n  t 

CPI"  34  1 

c 

CA.  VLA  5 4 2 

GC  1C  S 

CAVLO 34 1 

c 

CAVLP  344 

c 

ock s» : nf  r : t a n c f offa^fe  than,  mix  less  than  twice,  the 

C A V ’ 0 3 4 5 

c 

cr:  : r c a : listascf.  i.tnfap  interpolation  is  used 

CA  V LO  14  s 

c 

CA  viP  ?4  7 

1 

CL  Y L - Y 1 

C A " L 0 34  8 

" I " Z 1 

CAVLO P43 

IF  (7  1 . LE.  z;\  : ) TO  IPS 

C A V ! " 3 c p 

YL  = Y2 

C A V L 0 3 S 1 

ZL  - Z2 

C A v L A 3 S 2 

r FAC  : . I 1V/(dr':  MMULTF.) 

CAVL?  1 5 1 

IF  (iVL .GT.2. *XZ)  GO  TO  2CC 

CA VLn  3S  4 

r f n z l - 0 . u ? * h l i : n 

C A V i p 3 c S 

TEN!  L2TPE. NZL**2 

CAVL1  ’S6 

IF  (t  SAC.  ZQ.  1)  JO  TO  101 

C>  VI A 3S" 

1C2  Tl=XZ/xr?fc 

C A " L 0 ’ S 8 

•.  2 - . * 5 T j Y ( 1 o TAB  , Til  * * 2 

C A V ' P 1 S J 

r’i‘.  •CS::'»*;>».-NFT  **2*rE»ZX2  +3NTH**_*DENHL2 

CAVLO  "SO 

A ?Z1  - ( (YB  YI}  * ST  (Z°-ZL)  *CSTH*SNFI)  **2/DBNO 

CAVLO  36 1 

* z;  - ( c Y 9 - Y : > * NTH-  (7  - ♦ 7 ' 1 *CSTH*SNFI)  **2/Dr.NO 

C A.  V L A 3 6 2 

GC  TC  1C? 

CA " LA  38  3 

*01  A r G 7 1 = - ( Z - - 2 L 1 *♦<•/!?  ESZ 12 

CA VI  A 3c u 

AFGZ;  - (2F+ZL) ♦*?/DENZL2 

C A " I 0 36F 

1C?  FAC1  = EXP(A°i>21) 

CA  V ’ p 38 6 

FAC  2 = EXE (ASG72) 

C»  V!  1 38" 

FAC1-FAC1*  (PWP- X7 ) * (E  AC  3-  FAC  1) /XL 

CA V! r 3*8 

FAC^-FAC2  + ( C "I  - XZ)  * (rAC3-FAC2)/X7 

C A V ! 1 3 8 q 

GC  T r ?q 

CAVLO  3"0 

c 

C A V ’ 0 3 7 1 

c 

c 

c 


‘ 


DOWN-TNL  DISTANCE  IS  BEYOND  2 TIMES  THE  CRITICAL  DISTANCE, 
UNIFOFM  MIXING  IS  ASSUMED 


<~«V LO  >12 
CA  VLO  37 7 
C A V 37  4 


200 

F AC  1 = F AC  3 

C A V L n 37  S 

FAC2=F AC3 

CA VLO 776 

GO  TO  30 

C A V 1. 0 77-1 

SCO 

IF  (OLPS.LT.  (.01*DL)  ) GOTO  <-00 

CAV1P7TR 

TF  (ISAC.  EQ.  1 . AN  D.  NSUP  . EO  . 0)  GC  JO  SS 

r 

> 

IF  (NSUB.GF.  1'  GO  TO  CO 

CA  V L ' -33 

foo 

IF  ( N :•  U E . N E . 1.03.  X M A X . G E . X E > 0 T ' T - 1 . C 

C A V L 0 7 8 1 

IF  (CTCT.EQ.d.O  011"'=  1 ■ " 

CA  V1 C 702 

NORMALIZF  CBA.F  TO  IKE  TOTAl  POLL  UF  AM  DENSITY  CALCULATED 
ALONG  THF  LINE 

C A V 1 =CBA  R/QTt'T 
FFM’FN 
F NT 


CAVL03R7 
C A V T r > 0 -i 
C A V T C 3e-- 
C f V : n 5 <3  (■ 
CA  VLO  IS"1 
C A 7 L 0 7 0 <7 
Cl VL" 3B3 


W ■!!  API  F COPY 


SUBROUTINE  CLASSE 


Purpose: 

To  print  an  error  message  if  the  wrong  ICLASS  value  is  input 
to  one  of  the  airbase  non-aircraft  or  environ  emission  distri- 
bution subroutines. 

Input : 

None 


Output : 

A message  indicating  the  value  of  ICLASS  set  by  the  code  and 
the  value  supplied  by  the  user. 

Subroutines 

Called: 

None 
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SUPFCUTINE  (.LA  S SF  (I, .7) 

C 

C THIS  tCUTINH  FFISTS  THE  TC  LA  i S Enfioh  KESSACE 

C 

FEINT  7,  I,J 

1 FCFNAI  (17H0ICLASS  SHOULD  t E,  I 4 , 1 (? H , It.FUI  CALL'  nEADS,I4) 
ST  C l 
FNC 


CLASEOOO 
CLASEOO 1 
CLASE0C2 
CLASEOO  :• 
CLASE004 
CLASE005 
CLA  SF006 
CLASEOO? 
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1 


SUBROUTINE  DEPART 


To  calculate  the  points  in  the  runway  roll  and  climbout 
modes  as  a function  of  aircraft  type  using  current  meteor- 
ological conditions  and  airbase  specific  pressure  altitudes 
and  airbase  dependent  basic  aircraft  parameters. 


Basic  aircraft  data,  current  meteorological  conditions, 
runway  data,  aircraft  identification. 


Points  in  departure  path  as  a function  of  runway  and 
aircraft  type. 


Function  RRDIST. 
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SUBROUTINE  DEPART 


Ik 


IDENTIFY  RUNWAY  TAIL  COORDINATES 


CALCULATE  ACTUAL  /AND  GROUND  REFLECTED 
DISTANCES  BETWEEN  POINTS  IN  THE 
DEPARTURE  PATH 


SETUP  POINTS 

IN  PATH 

1. 

BEGINNING  OF  RUNWAY  ROLL  POINT 

1 

LIFT  OFF  POINT 

3. 

END  OF  CLIMBOUE 

phase:  ONE  POINT 

1 4- 

ND  OF  CLIMBOUT 

POINT  AT  3000  FEET 

SUBFCUTINF  DEPART  (N,  I) 

DE PR TO 00 

c 

DEPPTOO  1 

L 

1 HI S ROUTINE  CALCULATES  THF  POINTS  IN  THE  DEPARTURE  PATH 

DEPPT002 

C 

AS  A FUNCTION  OF  RUNWAY(N)  ANT)  AlhCRAFT  TYPE(i) 

DFPPTOO  3 

c 

DE°RTC04 

FEAT  LNCSPD 

DEPRT0C5 

INTEGER  ENGNC 

DE  P FT  00  6 

COMMON  / MET  / NS  , W S M F li , I H S , H D , I N D,  SI  N EK  D , C VS  f »D , J3  T*  ti  , HLI . , 

IiSMF, 

DEPFT007 

. TEMK 

DEPRT008 

CCMMCN  /ANNMET/  T B AB , A ED , F , P A , W5 8 A R,  DI B Ah 

DE  PFTn0S 

COMMON  /ACEBB1/  ACEMFC  (8,  10,6)  ,ASCNT1  (8)  , A: C NT2  (8)  ,TXIi  M.(o) 

, 

DE  P 0 1 0 

. TNDSED (8)  , APSPD1 (8) , AESPD2 (8)  , COHT 1 (8) , TOSPi  (6 ) , C 3RD 1(8), 

DEPFTC) 1 1 

. CCS  F C 4-  ( 8 ) , SBTUPI  , ESC  NT  1 (b)  , EGCHKT  ( S)  , SH  TDN  T (8)  , D3CN 12(6) 

r 

DEPRT012 

. APFHT,  APPHT2  (6)  ,cLMBHT,TGWT  (3)  , ENG  NO  (6,2)  , I IFF.  (8) 

D E PET  0 1 4 

CCMMCN  /ACEDB2/  NACTYP,NRNWYS,  NPK  AS , I EG  FLO,  I AC  T Y P (-,)  , AN  NAFF  (A)  , 

. ANNEEF (8)  , ANN  I 30  (8)  , AFRFCN  (24,8,6)  ,i  : ; 1 N(24,8,o)  ,TGC(3,4,8) , 

DEPFTC 15 

. DISFNN (6)  , ENWY (7,6)  , IU3WT (20 ,6)  , ACFUEL  (6) , ARFLVT(B)  , DPFLVI  (8)  , 

PEPRTC  16 

. ACS  FIT  (a)  , AESVEM  (fc  , 8,  5)  , DFSVEM  (6,b,  5)  , NIdTT  (o)  , lb..  ^ , fc)  , 

PE  PR  TO  1 7 

. IIESEG<16,8,6>  ,IDIBTW  (8,6)  , TT  AEF  R (8 , 8 , 6 ) , NuBTI  (o ) , NOuo  EG  (8, 

o)  , 

CEFPT018 

. I OB  S EG  (16,8,6)  , IDOET  * (o  , o)  , TT  DP  F F (8 , d,  6)  ,N?ASy(o)  , I DP  :■  K A (b) 

t 

DF  PPT  j 1 Q 

. PAREA(6,3,3),IDIBPA(P,6)  , I DO  BP  A ( o , t>)  , NL.3EG  „ , ACLN  3G  ( 1 ~ . 3)  , J 

FS1(o)DEP?T  2C 

RC  = FNViY  ( 7 , N ) 

DEPRT  12  1 

HSFD  = W.C*1  .4426*COS  (WD-RD) 

DSPRT022 

HEIS 12=PRDIST (1  DPR (I)  , PA , TEMF , TOW T (X ) , WSPD)  *3.y48E-4 

DEPRT 023 

X A = S I N (FNWY  (7,  N)  ) 

DEPRTC24 

Y A = C C S (FN  NY  ( 7 , N ) ) 

DEORT028 

X = ENVY  (2,N) 

DEPOT  0 2b 

Y = RNWY  (J, N) 

DEPST027 

Z=RNWY (4, N)  / 1C  00 . 

DEPRT02h 

DIS23=COHT1  (T) /SIN  ( A3CNT  1 ( I) ) 

DE  PRT029 

r IS  14=  (Cl  MBHT-COHT1  (I) ) /SIN (ASCN72(1)  ) 

OEPRTO  30 

HCISi3  = CUHT1  (IJ/TAN  (ASCNT1  (I)  ) 

DEPRT031 

HEIS  ?4=  (CLMBHT-COHT1  (I) ) /TAN  (A  CNT2 (1 ) ) 

DEPPTC32 

c 

PEPPT03  • 

c 

START  CF  FUNWAY  FOLL  CATA 

OEPRTO 34 

c 

DEPFTO  35 

DEFFCN  (1  , I , N)  = X 

DFPRTC36 

DEPFCN (i, I, N)  Y 

DEPRT''  37 

DEFFCN (3,1 , N) - Z * 1 0 0 0 . 

DEPFTC  38 

CFPFCN  (4,  I , N ) -0.0 

DEPFTC  34 

DFFFc  N (5,1  , N)  - H D 1 S 1 2 

DEPRT  ) 4 0 

LEPFCN (6,1, N)  = 2. 0*HDIS 12/TCSFD(I) 

DEPPT04 1 

V..' 

DE4RT04  2 

c 

ECINT  CF  LIFTOFF  DATA 

DEPPT04  3 

c 

DEPST044 

DEPFCN  (7,1  , N)  X ♦ H D 1 5 1 2 * X A 

DEPRT045 

CFPFCN  (b,  I, N)  Y ♦ H P I S 1 , * Y A 

DEPRT046 

DEPFCN ( ? , I , N)  Z*  1C00. 

DE  p RTO  4 7 

LEFFCN  ( 1 0 , I , N) =TCSPP(I) 

DE  PRTC  4 8 

L EPFCN ( 1 1 , I , N)  ; D . S 2 3 

DEPRT 04 9 

DEPFCN (12 ,1 , N| =2.0*DIS23/ (TOSPU ( I)  ♦ CO  S P E 1 ( I ) ) 

DEPRT CSC 

c 

DEPRT051 

c 

END  CF  CLIMP1  PCINT  DATA 

DFPRT052 

L 

DEPRT053 

DE  PFCN (13, I, N)  =T EPFCN (7,T,N) ♦ HOLD  si* X A 

DEP  RT  0 s 14 

DEPFCN (14 ,1 ,N)  = DEPFCN (8, I, N)  ♦HDISi3*Y A 

DEPRT055 

EEPECN  (15, 1,N,  --COHT  1 (I)  * 1000. 

DEPRT056 

DEPFCN  (16 ,1  , N,  = COS  P D 1 ( I) 

DEPPT057 

DEPFCN  (17,1 ,N- = D I S 3 4 

DEPRT058 

DEPFCN (IP, I ,N)  -2.0*DISj4/  (COSPD1  ( I ) ♦ CCS FD2 ( I ) ) 

DEPRT0S9 

c 

PEPPT060 

c 

END  CF  CLIMFO.IT  POINT  DATA 

DEPRT06 1 

■ ' FIB  (1  ' , : , N)  : El  ! C N (1  i , ~ , N ) ♦ HD  1 334 * X A 
-DEPFCN  (la,  I , N)  +HDISj4**A 
‘■(.1,1,*.)  CL«9HT*1000. 

; t r t ^ n (22,  i,  N)  :ospd2  (i) 

rJTI'F-N 

END 


DEPRT062 
PE  PRT063 
DEPPT064 
DEPRT065 
DEPBT066 
DEPRT067 
DEPRT068 
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FUNCTION  DIFERF(X,PH) 


i 


Purpose: 

To  find  the  difference  between  two  error  functions,  erf (X+PH)  - 
erf (X) . 

Input : 

X and  PH 

Output : 

The  difference  between  the  error  functions 

Procedure : 

1.  If  PH  < .05,  the  formula  given  in  the  Handbook  of  Mathematical 
Functions,  National  Bureau  of  Standards,  Applied  Mathematics 
Series  55  is  used: 

2 

DIFERF  = 1.12838-PH-e'X  [i-PH-X+(2-X2-l)  .PH2/-5] 

2.  If  PH  > .05  and  X and  X+PH  are  of  different  sign: 

DiFERF  = erf (X+PH)  - erf(X) 

3.  If  Pit  > .05  and  X and  X+PH  are  both  negative: 

D FERF  = -l.*[erfc(-X)  - erfc(-X-PH)] 

4.  If  PH  > .05  and  X and  X+PH  are  both  positive: 

DIFERF  = erfc(X)  - erfc(X+PH) 

Function 
Called: 

ERF,  ERFC 
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FUNCTION  DIFERF (X, PH) 


D1FERF  = 1. 12838- PH-e 


XTEST 


DIFERF  = erf(XPH) 
-erf (X) 


DIFERF  = erfc(X2) 
-erfc(Xl) 


I 

_ 

j DIFERF 

FUNCTION  01  - F:  * (X , PH) 

I H I FUNCTION  Fit  Do  THE  DIFFERENCE  BETWEEN  TWO  EM  C' R FUNCTIONS 
( t!cI  NG  VARYING  METHODS  BASED  ON  THE  SI2E  OF  THE  ARGUMENTS 

DIFERF=0. 

IF  (PH. FO. 0 .0)  GO  TO  50 
TF  (ABS(X)  .GT.  ’0.?)  ',0  TO  50 

T F (PH. GT. 0.05)  GO  TO  10 

c 

C ’IS  E METHOD  MIT  LI  F FD  IN  HANDBOOK  C :■  MAT;:  FUN  C?  I NV  , UP"". 

C BUREAU  OP  STANDARDS,  APPLIED  MATH  StKIEF,  > , 

C 

DIFEftr  - (1  . 1 2 A IH  * PH/EX  P ( X**2)  ) * ( 1 . - P H*  X * (t.*X**2-1.)  ♦ ?(!**  1/  3 . ) 

GO  TO  50 

DIFFERENCE  IS  TO  LARGE,  MOST  USE  ERF  Oh  SRFC 
10  XPH=X+PH 

X'rFST  = AMr  N 1 (At-  ( X ) , A BS  ( X + P H)  ) 

IF  ( X T E ' T . G F . c- . 0 ) GO  TO  50 
T I (X  *XT”'  . LT.  P . n)  GO  TO  40 
IF  ( X TEST . LT . P . 4 7 ) GO  TO  40 

CAN  ONLY  REACH  FM'F  WHEN  X AND  XPii  HAVE  SAKE  SIGN 

TF  (XPM.ST.0.0)  GO  TO  20 
?IGN=-1 . 

X 1--XPH 
yp=-  < 

GO  TO  (0 
20  :'IGN-1. 

X 1 " X PH 
X 2-X 

<0  1) I r F !! F = S I G H * ( E EC  (X 2)  - ERFC  (X  1 ) ) 

GO  TO  50 

LO  DIFEFF  = ERF  ( X ■>  ! ) -F.RF(X) 

50  RETURN 
ENu 


01  F F R 0 0 0 
DIF  ERGO  1 
DI FFR002 
DT  PEROO 3 
DIFEROOU 
DTFERQO  5 
DTFHR006 

DTFFPOOB 
OT  FE80r'  S 
DI F FRO  1 0 
1 1 

OFFER  o 1 2 
DIFFROI 3 
01  F FR  0 1 4 
JTFEP015 
OT  FERD1 5 
■ 1 1 r p R 0 1 7 
DIFER01 8 

DTEFR01D 

■>TFr.R02P 
D I F E P 0 2 1 
OT  FEP022 
0 1 F E ft  o 2 3 
DIFEROPU 
U I F El  0 
D T F F ? 0 2 6 
DTFFRQ27 
01 F FR  02  H 
DT  F E R 0 2 Q 
0 T F E R o in 
01 FFRC  1 1 
D T F p R 0 1 2 
DTFFROR 3 
DIFFR034 
OIFFPP35 
DI  F F.pn  <t 
DI ppRO  • 7 
OIFES338 


SUBROUTINE  DIFMOD 


Purpose^ 


Input : 


Output : 


Procedure : 


To  loop  through  all  wind  directions  and  speeds,  deter- 
mine the  wind  dependent  sources,  and  direct  the  calls 
to  the  proper  diffusion  routine  for  all  input  sources. 


1 . Restart  data 

2.  Special  wind  case  data 

3.  Point  source  data  for: 

a . Environs 

b.  Airbase 

c.  Aircraft 

4.  Area  source  data  for: 

a . Environs 

b.  Airbase 

c.  Aircraft 

5.  Line  source  data  for: 

a.  Environ 

b.  Airbase 

c.  Aircraft 

SORC,  a vector  which  contains  data  for  the  current 
source  to  be  transferred  to  the  diffusion  models. 


1. 

Set 

the  receptor  data  array  to  zero. 

2. 

Check  for  restart. 

3. 

For 

all  wind  directions  and  speeds: 

a. 

Check  for  special  wind  cases. 

b. 

Determine  wind  dependent  sources. 

c . 

Set  the  type  flag  for  environs , 
airbase  or  aircraft. 
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d.  Fill  the  SORC  vector  with  the  source  description 
and  emission  parameters. 

e.  Check  for  non-zero  emissions  from  this  source 
and  call  POLUT  for  point  and  area  sources  and 
PSEUDL  and  POLUTL  for  line  sources. 

f.  Write  restart  data  on  tape. 

4.  If  the  statistical  option  is  chosen,  write  a final 
record  on  that  tape. 


Sub rout ines 
Called: 


ACSRCE , DEPINP,  POLUT,  POLUTL,  PSEUDL 
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SUBROUTINE  DIIMOD 
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BEGIN  NABPT  LOOP 


CALL  POLUT 


END  NABPT  LOOP 


FOR  EACH  AIRCRAFT  1*0 1 NT 
SOURCE,  FILL  SORC  (1-16) 
FROM  ACPT  ARRAY 


FOR  EACH  AIRBASE 

POINT 

SOURCE,  FILL  SORC 

(1-16) 

FROM  ABIT  ARRAY 

JL 

ARE  ' \ 

THERE 

\ 

V 

^ EMISSIONS 

\ FROM  IH1S 

[MISSIONS 
FROM  mis 
sourci; 


1 


FOR  I.VJI  F.WIRON  MU.\  SOURCI  , 

I I I I.  SORC(l  5'  -VVIl  (11-1(1)  FROM 
1LNAK  ARIU'i 


mi  rj 

[MISSIONS 


! I NI)  NHXAR  I.UOI*  j 


BEGIN  NABAR  LOOP 


FOR  EACH  AIRBASE  AREA  SOURCE, 
FILL  SORC (1-5)  AND  (11-16)  FROM 
AB.AR  ARRAY 


EMISSIONS 
FROM  THIS 


END  NABAR  LOOP 


BEGIN  NACAR  LOOP 


FOR  EACH  AIRCRAI'T  ARIA  SOURCE, 
FILL  SORC(l-5)  AND  fll-16)  FROM 
ACAR  ARRAY 


EMISSIONS 
FROM  IHIS 
SOURCE.  . 


SORC(9) 

SORC(IO) 

SORC(12) 


BEGIN  NENLN  LOOP 


FOR  EACH  ENVIRON  LINE  SOURCE 
FILL  SORC(l-8)  AND  (13-18) 
FROM  ENLN  ARRAY 


ITYP1 

E = 1 

J 

emissions 

FROM  THIS 
SOURCE 


SORC(4)  = 1 


CALL  PSHUDL(WS) 
CALL  POLUTL 


FOR  FAQ!  AIRBASE  LINE  SOURCE 
FILL  SORCC1-8)  AND  (13-18) 
FROM  ABLN  ARRAY 


S0RC(4)  = ] 


CALL  PSF.UI)L(WS) 
CALL  POLUTL 


FOR  -iACll  AIRCRAFT  LINE 
SOURCE,  FILL  SORC(l-18) 
■:RON1  ACLN  ARRAY 


^ ARE  \ 
THERE 
EMISSIONS 
FROM  TOIS 
SOURCE 


SORC(4) 


SORC (4)  = 1 


CALL  PSEUDL (WS) 
CALL  POLUTL 


END  NACLN  LOOP 


WRITE  RESTART 
DATA  ON  TAPE 


END  IWNDIR  .AND  IWS  LOOPS 


IRSTRT  = 0 
WIND  RESTART! 
TAPE 

1 1 


WRITE  FINAL 
RECORD  ON 
STATISTICAL  TA >E 


NRSTAT 


RETURN 
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o r. 


SUBROUTINE  DIFMOD 
C 

C THIS  ROUTINE  IS  THE  DRIVER  FOR  THE  DIFFUSION  MODFL. 

0 FOR  ALL  ENVIRON,  PIRPASE  AND  AIRCRAFT  POINTS,  PPFP  AND  LINES, 

C THE  SC  RC  VECTOR  I ' FILLED  WITH  APPROPRIATE  SOUPCF 

PARAMETERS  AND  THEN  THE  PROPER  DIFFUSION  ROUTINE  IS  CALLED 

COMMON  /ATFQAI/  F EC  DA  T ( J , b,312) 

COM  MC  N /INFO/  I R EC  EE  , I W NDI  E,  ITT  PE , ::T  A EKO , SC  RC  ( 1 8)  , . PC  L 
COMMON  /"FT/  WS,  WSMPH  ,IWS,  KD,I  WD.SI  N’EKD,COSF  WD,  JSTAB,  HLID.TEMF 
. , TEBK 

COMMON  /MFTSET/  VNDFRQ  (6, 1 6,b)  ,UU(b),SINWD(16)  , CCSWD ( 16) 

COMMON  /RCPT / N R ECEP , R ECEP  (2 , 3 1 2) 

COMMON  /RSTFT/  I !■  STRT  , I PER  X D,  I RPRX  , I RMN  X , I R K SX  , I R W DX 
COMMON  /SPEC/  NCASE, VSSP (3) ,W DSP(3) 

COMMON  /SRCF/  N FO L , N E N PT , N EN AR , N £ N LN , N A SPT, N AB A R , N A BL N , N ACPT , 

. NACAR.NACLN, ENPT  (16, 100)  , ENA R ( 1 1 , 1 00)  , EN LN ( 1 4 , 20)  , A B PT ( 1 6 , 1 50)  , 
. ABPR  (1 1 , 100)  , A BLN (14,  100)  , ACPT  (1b,1),ACAR(11,L4)  , ACLN  ( 1 8 , 25 0) 
COMMON  /PERIOD/  I MONTH , NOD A YS , I DAY , IH R 1 , I HR2 , I FL AG , J FL AG 
COMMON  /STAT/  N S TAPE, N R STAT,R STA T (2 , 20)  , I RST AT  (3  1 2 ) 

COMMON  /’-’DUN/  WS  A V E , S U 0 V (b)  ,S  0 DZ  ( b) 

DATA  NINN  TN/9°/ 

F T A F RO=20 . * . 30  4 8 
C 

C SFT  PEC DAT  APPAY  TO  0.0 
C 

DO  10  1=1,6 
DC  10  K= 1 , 3 
DO  10  J- 1, 312 
1 0 RECDAT  (K,  I , .1)  =•) . 0 
C 

C CHECK  FOR  RESTART 
C 

I RWS=  1 
TP’WD=  1 

If  (IRS1RT.  Eo. 0>  (30  TO  2 1 

22  R FAD  (1  1 , END  .101  T P P R , I fi M N , I RWD , IRWS , ( ( (RECDAT  (T,  J,K)  ,1  = 1,  1)  , 

. J - 1,NPOL)  ,K  1, NRECFP) 

IF  (IRPR.NE.TRPRX)  GO  TC  22 
IF  (TRMN. NF.TRMNX)  GO  TO  22 
IF  (IRWD. N F.  IRW  IX)  GO  TO  22 
IE  (TRWS.NE. TFWSX) GO  TO  22 
I RWS  = I RVf  S + 1 
IF (IRWS. LT. 7) GO  TO  2 1 
IRWS* 1 
IPWD=IRWD+1 
21  CONTINUE 
C 

C PFGTN  WIND  DI  P Ei  T I ( N LOOP 
C 

DC  IPO  1 " N D I R - I RVD, 1b 

ipvn=  i 

WD= (I WNDI R-1 ) *3 . 1 41597/8.0 
SINEW D=SINWD  (TWNDIR) 

CCSEWD-COSWD  (I w N D T R) 

IV>D  = IWNDIR 
I FL  AG=  1 

DO  100  IWS=TRW3,6 
T R V S = 1 
TFREQ=0. 0 
DO  101  J = 1 , h 

10  1 TFREQ  = TFREQ+ WNOFKQ  (IWS  , IWNDIh , J) 


DIFMD000 
DIPMDOO  1 
DI FMC002 
DIFMDOO  3 
DIFMD004 
DTFMDOC  5 
DTFMDOCb 

DIFMDOO 7 
DIF "0006 
DIF*  DO  0 5 
DI  FM  DC  1 C 
DIFMD01  1 
DI  FM  DO  1 2 
DIFMD01 j 
DIFMD014 
DTFMD01 5 
DI FMDO 1 6 
DXFMDO  17 
DI  FM  DO  1 8 
DI  F 1 DO  1 9 
DIFMDO20 
DI FMDO 2 1 
DIFMP022 
DTFMD02  3 
DIFMD024 
DIFMD025 
DI FMD026 
DIFMD027 
DT  FM  DO  2 8 
DIFMD029 
DI FMDO  10 
DIFMD03  1 
DI FMDO 3 2 
DI FMDO 3 3 
DI FMDO 3 4 
DIFMD035 
DIFMDO  36 
DI FMDO  3 7 
DIFMD038 
DIFMDO 39 
DI FMD040 
DIFMD04  1 
DI FMD04  2 
DI  FM  DO 4 3 
DIF  MD04  4 
DIFMD04  5 
DI F MD04  b 
DTFMD047 
DIFMD048 
DI FMD049 
DT  ^ MDOS  0 
DI FM  DOS  1 
DTFMD052 
DI FMDO  5 3 
DI FM  DOS  4 
DIFND055 
DTFMD0S6 
DIFMD0S7 
DI FM  DOS  8 
DIFHD0S9 
DI FMD06 0 
DI FMD06 1 
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IF  (TFREQ.  EQ.  0)  Gn  TO  50  0 
+'S  = UU  ( T W S ) 

IF  (NCASE.BQ.O) 0 0 TO  12 

1VD0= IWD 

to  11  T - 1 , N C A ' F 

COM  V S*COS  ( «'1>-  (i'DSP  ( I)  ) 

IF  (CORF.  IF.  I'S'P  (I)  ) GO  TO  11 
TFLAG  1 
I VD- 17+1 

TF  (IWD.EQ. T UDO)  T F L A G = 0 

or  T'  12 

11  ( or  T N MF 
1 2 CON"  T K”  £ 

PET  F P R I N F WIND  DEPENDENT  SOURCES 
•-ALL  ACS  R CF 

F (IFIAO.EC'.I)  '-ATI,  V £ p 1 N p 
i FLA 0=0 


F NV  IFi  N POT  NTS 

’ F (NENFT. p0. 0) or  TO  200 
ITYPE-  1 

DO  120  I = 1,N5.NPT 
PO  12  1 .7=1,16 
1 + 1 CRC(J)  ENPT  (.1,1) 

DO  321  J=6, 11 
T f (so rc  (.1)  . NF.  0.0 * o 
321  CONTINUE 
orj  t i 120 
32  2 < A I I PCiI  (IT 
120  CONTINUE 


0 TO  322 


A I r'  F A F F PO  I N T s 
C 

200  I P (NA  I’PT.  EQ.  ')  .';e  To  2C  1 
1 TYPE-- 2 

pn  1 1 0 t **  1 . N A ° ^ 
i r i n +i  - 1 # i h 

1 31  -np(  (J)  APP’-  (.1,1) 

DO  ; i .1  = 11,1., 

IT  ("  "J ;'(.))  ,N  .O.r)  no  TO  3J2 
•71  C p N T I N U c 

or  to  1 70 
3 ‘2  CALL  PCLUT 
7 • ‘ CONT  T NU 

c AIRCRAFT  O0TNTS 

2C1  IF  (NACP?.,  FO.  r ) 1 TO  20  2 

I TYPE  • 

Dr  mD  r-1fMACDT 
DO  14  1 : =2  1 9 } fN 

ttt1  Pt  (.’)  a cp"  (J , : ) 

to  141  J 1 1 , 1 f. 

IF  (SOBC(.I)  . NK.0.0  ) Gu  TO  34. 

; 4 1 t ■ Nil NUr 
(It;  to  140 
142  CALL  POLU^ 

140  CONTINUE 
202  C<  NT  I MIF 


DIFMD06  2 
DIFRD06  3 
DIFRD064 
DIFRD065 
DIFRD066 
DIFRD067 
DIFMD06  8 
DIPMD069 
DIFND070 

DIFMD071 

DIFND072 

DIFMD073 

DIFRD074 

DIFMD075 

DIFRD076 

DTFRD077 

DIFRD078 

DTFMD079 

DTFRD080 

DI F MDOR  1 

DTFRD082 

DI  FR  D08  3 

DIFMD0R4 

DIFRD0R5 

DIFRD086 

DIFND087 

DTPRD088 

DIFRD0R9 

DIFRD090 

DIFRD09  1 

DIF  RD09  2 

DI P RD04  3 

DIFRD094 

DIFRD095 

DIFMD096 

DI  F IYDOR7 

DI  F 8 DO 9 8 

D I F WD  99  9 

DI FRD100 

D I F (1 D 1 0 1 

DTF.RD1C2 

DI  F R D 10  3 

DIFHD104 

DIFRD10  5 

DTFRDIOt 

DIFRDln7 
DIFRP1  4 
DIF  E01r 4 
Pi fr: 1 1 


o o o non  n n n non 


DO  20  J = 1 , 16 
20  SORC (J) =0.0 
SORC  (10) =-1.0 

ENVIRON  AREAS 

IF  (NENAR. EQ.  0)  go  TO  20  3 
I T Y PE= 1 

ro  122  1=  1, NENnR 
DO  123  J=1 ,5 
123  SORC ( J)  = EN  A R (J.  I) 

DO  323  J= 1 1 , Ifc 

323  SORC (J) = ENAP (.1-5, 1) 

DC  3 24  J=  1 1 , 16 

IF  (SORC  (J)  . N F . C . 0 ) GO  TO  325 

324  CONTINUE 
GO  TO  122 

325  CALL  FCLUT 
122  CCNTINUF 

AIPPASE  AREAS 

203  IF (NABAR. EQ. 0) GO  TO  204 
TTYPE=2 

DO  132  1=  1, NABnP 
DO  133  J=1,5 
133  SORC  (J)  -A  BAR  (J,  I) 

DC  333  J = 1 1 , 1^ 

333  SORC  (J)  = A BA  E (J-  5,  I) 

DC  334  J=  11  , is 

IF  (SORC  (.1)  . NS.  . .0  ) GO  TO  3 35 

334  CONTINUE 
GO  TO  132 

335  CALL  PCLUT 
132  CCNTINUF 

AIRCRAFT  AREAS 

204  IF (NACAR. EQ. 0) GC  TO  205 
TTYPE=3 

DO  142  1=  1,  NAC/. R 
PC  143  .1=1,5 
143  SORC  (J)  =ACAR  (.1 , I) 

DC  343  J=  1 1 , 16 
3i*3  SORC  (J)  = AC  A F (.1  5,1) 

DC  344  J=  11  , 16 

I F (SORC  (.1)  . N E.  0 . 0 ) GO  TO  345 

344  CONTINUE 
GO  TO  142 

345  CALL  PCLUT 
142  CCNTINUF 

205  CONTINUE 

SO FC  ( 9)  = 100.0 
SORC  ( 1 0)  =100.0 
SCRC  (12)  = 1 . 

FNVIRCN  LINES 

IF ( NENLN. EQ. 0) ' O TO  20o 
IT YPE=  1 

DO  125  1=1, NENLN 
DC  126  .1=1, e 


DIPND124  ] 

DIF1D125 

DIFHD126  ] 

DIFHD127 

DIFPID128 

DIEM012  9 

DIF1D1 30 

DIFMD13 1 

DIFND1 32 

DTF.1D133 

DIFKD134 

DIFKD13  5 

DI  PHD  13 6 

DIFND137 

DIPND138 

DIFND139  ;! 

DIFHD140 

DI  F H D 1 4 1 

DIFHD142 

DTFHD1U3 

PTFHD144  j 

DIFHD145 

DIFHD146 

DIPHD147 

DIFMD148 

DI FED  149  j| 

0IFHD150 

DIFND15  1 

DIFHD152 

DIF. 10153 

DIFHD1S4 

DIPMD155 

DI  FID  1 5 1> 

DIFHD1S7 
DIFHD158 
DIFBD169 
DIFHDIbO 
DIFHDIb 1 
DIFHD162 
DIF1D1h3 
DIFHD184 
DTFHD165 
CIFHDIbb 
DIFHD167 
DI FM  D 1b  8 
DI FHD 1 b 9 
DIF.1D17C 
DI F ID  17  1 
DIFBD172 
DIF1D17  3 
DI FHD17  4 
DIFHD175 
DI F HD  1 7 b 
DIF1D177 
DIFID  17  8 
DIFBD179 
DI F HD  1 8 0 
DIFHD1R  1 
DTFHD1P  2 
DIFHD1U3 
DIFHD184 
DIFMD185 
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L 

C 


c 

t 


C 

C 

c 


126  SOPC  (J)  = FNLN  (J,  T) 

DC  32b  7 = 13,  18 
32b  SOPC  (J) = E NL  N ( J - 4 , T) 

DO  327  J = 13,  IP 

IF  (SOPC  (.J)  . NF.O  . 0 ) GO  TO  328 
327  CONT1NUF 
GO  10  125 

>28  IF  (SO PC (4)  . LF.O.C)  SOPC  (4)  =1.0 
CALI.  PSF71DL  ('/>’:) 

CALL  POLUTL 
125  CONTINUE 

AIRBASE  LINFS 


2 0b 

IF  ( N A BLN . EQ .0)00  TO 
ITYPB=2 

DO  134  I=1,NABLN 

DC,  1 35  7 = 1 , 8 

2C7 

1 35 

SORC  (J) =ABLN  (J, I) 

DO  336  J = 1 3 , 18 

33b 

SORC  (J)  ABLN  (7-4  , I) 

DO  3 37  ,7=  1 3,  1 R 

T F (SORC  (J)  . NE. 0 . 0) 

GO  TO  338 

337 

CONTINUE 

GO  TO  1 34 

3 38 

IF  (SORC  (4)  . LF. 0 . 0) 
CALI  PSFHDL  (WS) 
CALL  PCLUTL 

SORC  (4)  = 1.  0 

134 

CONTINUE 

AIRCRAFT  LINES 


2 07 

IF (NACLN. EQ. 0) GO  TO 
T T Y p F = 3 

DO  144  T=1, NACLN 

DO  1457=1,18 

20  8 

145 

SORC  (J) = ACLN  (7,1) 

DO  34  6 J = 1 3 , 1 « 

IF (SORC  (J)  . NE.O .0 

) GO  TO  3 47 

34b 

CONTINUE 

GO  TC  mu 

147 

IF  (SOPC (4)  . Ls. 0 .0) 
CALL  PSEUDL  (VS) 
CALI  POLUTL 

SORC  (4)  =1.0 

1 tiu 

CONTINUE 

V P 7 T c R ESTA  °T  DATA  ON  11 


DIFHD186 
DIFHD187 
DIFHD188 
DIFHD189 
DIFKD190 
DIFMD19  1 
DIFND192 
DI  FB  D19  3 
DIFHD19  4 
DIFND195 
DIFHD196 
DIFND197 
DTFHD198 
DI F8D  199 
DIF1D200 
DTFND20 1 
DI FMD202 
DTFHD203 
DI FHD204 
DIFND205 
DT  r HD20  6 
DIFHD207 
DIF1D208 
DIF8D20D 
DIF8D210 
DTF8D21  1 
DIFHD212 
DTP8D21 3 
DIFHD214 
DT  FHD21 5 
DI FHD21 6 
DTF8D217 
DI FHD21 8 
DIFHD219 
DIFHD220 
DIF8D22  1 
DI FHD222 
DTFMD223 
DI FKD224 
DTFMD225 
DIF8D226 
DIFND227 
DI FND228 
DIF  HD229 
DTFMD230 
DI FMD23  1 
DIFMD232 
DIFHD233 

( ( (RECDAT(I,J,K)  ,1  = 1,3)  , DIFHD2  3 4 

DIFMD235 
DIFMD236 

— TO  P ESTA  FT  FH08  THIS  PDIFKE237 
,Ib,6H  I R W D = . 16)  DIFND238 

DTFMD239 
DIFMD24G 
DTFHD24  1 
DTFHD24  2 
DI FMD24  3 
DI FHD24  4 
DIFHD2U5 
DIFHD24  6 
DIFND247 


2C  e » 4 1 T F (11)  IPF  MD,  IttONTH,  I WNDIP,  IWS 
. J-1,N^7L),F  ' , N P FC  £ P) 

V>”:  <6,  3 "2  ) T PE  F ID,  IMONTH,  IWS,  IWNDIh 
3D2  FORHAT  (70“  4F  'TAP  ~ DATA  HAS  rJEFN  VPITTFN 
.('TNT  SF'r  TFP?-  ,16,  bH  lR3N=,Ib,6H  IB«S  = 
r 0C  C ( N T T N H =■ 

ICC  l CNTTRHE 
I FtSTPT=0 
PFVTNC  11 

TF  STATISTICAL  OPTION  IS  CHOSEN  WHITE  A FINAL  RECORD  ON  NSTAPE 

H (NFSTAT. NE. 0)  WRITE  (NSTAPE)  NX NNI N,  (SORC ( J)  , J- 1 , 1 4) 

RETURN 


r r’-'T 

W ' Urn  *4?  * 


A "t  t V 

■ 1 Ana  l- 

£ t i i'it  iuJ'iULL 
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30  WRITE  (6, 303)  IRFP,IRMN,TRWD,IKWS  DIFMD248 

303  FORMAT  (30H1I.AST  FFSTART  RECORD  IS  iHPR  =,X4,7H  IRMN  = fI4,  DTFMD249 

. 7H  X RW  D - , I 4 , 7 H TRWS  = , I 4 /35 HOCHA NG E INPUT  CARP  AND  RFSURNIT  JOB)DIPMD2SO 
STOP  DIPHD251 

END  DIFMD252 


SUBROUTINE  EMISAR 


Purpose: 

To  add  emissions  from  a given  activity  to  *11  others  contained 
in  the  specified  geometric  area  or  line. 

Input : 

None 


Output : 

The  array  specified  in  the  calling  sequence  is  filled  with  the 
accumulated  emission  data. 


Subroutines 

Called: 


* 


c 

c 

c 

c 

c 

c 

c 

c 

L 

c 


SUPRC’UTINE  FM:SAh(MAXN,ARRAY,I1,I2) 


ThIS  ROUTINE  ACCUMULA  TES  EMISSIONS  F fi  C. M ANY  ACTIVITY 
CTHERS  CONTAINED  IN  THE  SAME  AIREASE  An  I A Oh  LINE. 


WITH 


M AXN 
Af  FAY 
II  ,12 
NSTCE 
l CC  1 

FORCE  (2, N)  = 


NO.  OF  SOt’ ROES  IN  AN  ACTIVITY 
SPECIFIED  APEA  Oh  LINE  OUTIOT  aFFAY 
DIMENSIONS  OF  Ah KAY 

POINTER  TO  LOCATION  OE  SOURCES  IN  SOhCE 

FOINIFF  TO  LOCATION  OF  LIST  01  EMISSIONS  IN  ABKAY 

POINTER  TC  LOCATION  OF  SOURCE  AREA  Oh  LINE 


COMMON  /SRC  t/  NPLiS.NENPT  ,NENAh, NENCN, NABPT , N ABA h , h A blN , 

. NACIT,NAC  AP,NACLN, FNII (If ,1C0)  ,ENAB  (1 1 , 1 OC ) , LNLN ( 1 4 , 2C ) , 

AP  IT  ( 1 6,  ISO)  , A.bAK  ( 1 1,  IOC)  , AbLN  ( 1 <4 , ICO) 

CCMHCN/JUNK/FA YS.LSRCE, NSPCE, SO«CE( 1 7, ICO)  , SORGM  (1C  ,200) 

. , LCC 1,1 CC2.N0 FOM, I PT 
riKFNSICN  ARRAY (I  1,12) 

LSRCE= N R L E ♦ 1 
NSBCE=NSPCE-*MAXN 

CC  1C  N=LSRCF,N  jRCr 
J = SC  RC  c ( 2 , N ) 

CC  1C  1-1 , N F LT  S 

APPAY  (IUOC  1,J)  -ARRAY  (I»LcC1  ,0)  «SORCE  (1*2,  N) 

10  CONTINUE 
RETURN 
l ND 


EMISROCO 
EMI SR001 
EMISP002 
EMISRCO  3 
FMI SPOON 
EMISPC05 
EMISP006 
E MISR007 
EMISPC08 
FMISP009 
FKISP010 
FMISF01 1 
EMISF012 
FMISP013 
EM  ISR01U 
EMISR015 
FM ISPC  16 
EMISR017 
FMISR018 
FMISP018 
EHISR020 
FMTSR021 
FMI SR022 
EM  I S P 0 2 .) 
FMISP02U 
FMTSR025 
FMISF026 


% 


SUBROUTINE  ENARAY 

Purpose: 

1. 

To  read  from  the  master  source  tape  all  data  needed  to 
define  environ  point,  area  and  line  sources. 

ft  • 

2. 

To  compute  the  emission  rates  due  to  point  sources, 

strtionary,  mobile,  land  use  or  combined  area  sources  } 

anu  roadway  and  non- roadway  line  sources. 

Input : 

If  the  diurnal  distribution  cards  are  input,  an  additional 
parameter,  IMETH,  is  input  here  to  choose  the  method  of 
distribution  of  emissions  from  those  land  use  or  combined 
area  source  activities  not  using  the  default  of  a uniform 
distribution. 

Output : 

The  anays,  ENPT,  ENAR,  and  ENLN,  are  filled  with  geometry 
and  emission  data  for  all  environ  sources. 

Sub rout ines 
Called: 

METHA,  METHB,  METHC,  METHE 
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READ  ITAPE  FOR  ALL  ENVIRON  LINE  SOURCE 
INPUT  AND  EMISSIONS  RESULTS,  TOGETHER 
WITH  TYPE  COUNTERS 


SUBROUTINE  ENAPAY 

FN  A RYOCO 

c 

ENARYOO  1 

c 

THIS  ROUTINE  COMPUTES  THE  EMISSSICN  RA1ES  E Oh  ALL 

FN  A BY  002 

c 

ENVIRON  SCONCES 

E NA  RYOO  3 

c 

ENAPY004 

CCMMC'N  / PEFAIT  / IT  APE  , ACLNPY  , ACLNE  Z , AL  PH  A (7  | , bET.\  (7  ) , FLOENS 

ENAPY005 

CCMBC  N/JU  NK/l  AYS,LSRCE,NSRCE,SOFCE(  17,  300)  , SO  PGM  (10,  200) 

ENA  FY  006 

. , LCC  1 , LOC  2 , NGEOM  , I FT 

ENAPY007 

CCMMCN/NCNMET/TMPAn,»SMBAR,  AMDMBR.DTML'A.B 

FNARY908 

CCMMCN/ME1/WS,  h SM P H , I WE  , K p , I « D , S I Nw'D  , COS  WD, 

EN  A RY  009 

. JE1AF,!)LIC,TRME,TEMK 

F NA  RY01 0 

COMMON  /PERIOl'/  I MON  T H , NO  P AY  S , I D A Y , 1 H h 1 , 1 H R 2 , i F L AH  , J i L AO 

EN  A RY  0 1 1 

COMMON  /OSTRBl/  A C M 0 ( 13,  tj)  , AC  DY  (L,fl)  , AC  HR  (24,  ti)  , VHMLMO  (13)  , 

FNARY012 

. VHBLCY (L)  , VHMLHR (2  4)  ,OVAfcflO(1j),CVABDY(2),CVAbHR(c«)  ,CVENMO  (13)  , 

ENARY013 

. CVLNDY ( 2 ) , CVE  NHR (24)  , ELMO  (1 3 , /)  , E LDY  (2,7) , ELHR  (24,7)  , NCI 

ENARY014 

COMMON  /'ICE/  N L7  3 , N E NPT  , N F N A R , N E N LN  , N A3PI , N AB  Ah  , N A£<  LN  , 

E N A P Y 0 1 5 

. NACE  T,  NACAR,NACLN  , FNP1  (16, 100)  , t'NAH  (1  1 , 100)  , i'NLN  ( 1 '•  , 20)  , 

EN  A RY  0 1 6 

AFFT  (16, 150) , A BAR (1 1 , 100) , ABLN ( K , ICC) 

ENARY017 

L 

ENARY018 

^ * ♦ ♦ * 

ECIN'IS 

FN ARY  019 

c 

F N A RY  020 

LEA!  ( 11 A P E)  NF  N PI, NT01 ,( (FORCE  (I  ,N)  ,1  - 1 , NTCl ) , N-  1 , NE.NPI) 

ENARY021 

IF  (NtNFT.FC-  - ) ';0  Tr  1 30 

FNAFY022 

101  AS 5=201 

F N A R Y c 2 3 

LOO  1=  1C 

EN  A RY  C 24 

ICo/=  1 1 

ENA.KY025 

NGEOM  - 4 

FNARY026 

T 1 lb 

F N A RY  02  7 

12=100 

EN  A RY  02  8 

1 E 1=  1 

FNARY029 

N S RC  F = C 

ENA.  RY030 

CALI  ME1HA (NENPT.ENPT, 11 ,12, ICLASS) 

EN  ARY  0 3 1 

c 

FNARYO 32 

l * * * ♦ 

AREAS 

EN  A PY  03  3 

c 

ENARY034 

100 

READ (ITAPE)  NENAS, NTOl ,101 T,NBAX1 , NMAXt , 

EN  A RY  0 35 

1 ( (SCFOE  (I , N)  ,1=1,  NTOT)  ,N=1,  NENAR) 

E NA  RYO  36 

IE  (N  ENAT . EO-C)  GO  T0  >00 

ENA RYO 37 

LCC1 = 5 

ENA  RYO  3R 

LCC 2= 7 

FNARY039 

NGEC  P = 5 

EN  ARY  040 

11  T = C 

F NA  RY04  1 

11-11 

ENA?Yn42 

1 2 - ICO 

ENARY04 3 

N 5 R C E = 0 

FNAFYOuu 

GC  TO  ( 110,  120,  130)  , IC  FT 

ENARY0U5 

c 

FNAPY046 

t****C?lUS  1 STATIONARY  AREAS 

EN  A RY  0«  7 

L 

r N A RY  04  t> 

1 10 

TOLAS S=2C2 

ENARY044 

IE  (NMAX1.GT.0) 

FNARY050 

1 CALL  "ETHB  (N MAXI, SNA!  ,11 ,12, ICLASS) 

T N ARY  3C  1 

c 

FN A RYO 52 

(J  * t.  ♦ n 

crTION  1 *0  3 T L r AREAS 

ENAPY053 

c 

ENAPY054 

IF  (NMAX2.GT.0) 

E N A RY 055 

1 cAlL  METHE (NMAX2, ENAF ,CVF NMO , C VEND Y ,C VE NHR  , 1 1 ,12) 

FNARYOSb 

GC  TC  300 

ENARY057 

c 

FN  AFY05B 

c * * * * 

CFTICN  2 CF  3 I.»NC  US  E np  COM  B IN  EE  AREAS 

ENA  RY  059 

L‘ 

ENAPY060 

120 

1CLA  SS=*03 

FN  A R Y Ob  1 

IDO 


GC  TC  2C0 

E VARY  062 

1 JO 

ICLASS  =c04 

ENARY06  3 

20C 

1ME1H=1 

ENARY064 

IF  ( >J  F L A G . EQ.O)  SLAP  201,IME:H 

f NARY065 

20  1 

FCRMAT  (I  4) 

ENAT-Y966 

IF  (IMETK.EC.1)  CALL  M ETfi  A (NM  AX  1 , EN  AR  , 11,  li,  ICL ASS) 

ENARY067 

If  (IHFTH.EC.2)  CALL  METHC (NNA A 1 , EN A fi , I 1 , K , ICL ASS) 

ENAS  Y Of.  8 

***LINES 

E N A r Y C 
ENARYCI"1 

NMAX1  NO.  Op  ROACKAY  LINEa 

FNAPY07 1 

NHAX2  - NC.  CF  Om-FCAEK  AY  LINE.. 

? S A E Y 0 7 2 
FNARY 07? 

300 

BEAT  (IT APE)  NENLN, NTCT.NMAX1  , NMAX2, 

ESA.  RYOT  4 

1 ( ( SOFC  E ( I , N 1 ,1-1,  NTOT)  , N = 1 , NENLN) 

EN  A r Y 075 

IF  (NENLN. EQ.O)  GO  TO  497 

ENA  E Y07£ 

Lcci-e 

SNAKY  077 

LCC2=  10 

EN ARY076 

NGEOK- 0 

ENARYC79 

NSRC  E = 0 

FNASY08C 

11=14 

ENA  PY  08  1 

I2  = z0 

EN AF  Y08 2 

I F T = C 

ENARYC83 

IF  (NMAX1.GT.C) 

FNARY  084 

1 CALL  METRE  (NUAX 1 , ENLN.CVENMC, CV  dNDY  , CVEN  HR,  i 1 , 12) 

ENARY085 
EN A FY  086 

if  (NHAX2.Eg.L)  10  T0  400 

ENA.  PYC37 

ICLASS=2Ct 

ENAFY086 

I MET  H=  1 

ENARY039 

IF  (JFLAG.EQ.f)  R f A D 2 01,1 MFTH 

EN  A RY  0 90 

IF  (IMETH.EC.1)  CALL  MET  HA  (NMAX2,  E N L N , I 1,  I * , ICLASS) 

ENAFY09  1 

IF  (IMETH.EQ.2)  v_A  LL  » E THC  (N  M A X2  , EM.N  , I 1 , I * , I C ..  A.- o) 

ENARY C°2 

400 

RETURN 

ENARY 993 

END 

ENA  RY  994 
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SUBROUTINE  INDINP 
ENTRY  DEPINP 


Purpose : 

To  print  the  input  parameters  for  both  wind  independent  and 
wind  dependent  sources. 

Input : 

All  source  parameters. 

Output : 

All  source  parameters  with  appropriate  title  information. 

Subroutines 

Called: 

None 


102 


103 


PRINT  HEADER  INFORMATION 
FOR  AIRBASE  LINES 

PRINT  SOURCE  INPUT 
DATA  FOR  ALL 
AIRBASE  LINES 


t 


RETURN 


n r 


SUBROUTINE  INI  iNP 


C 

c 

c 


c 


THIS  ROUTINE  PRINTS  ALT  THE  SOURCE  INPUT 
REAL*8  SC'FNAM 

COMMON  /NET/  V 3 , WS  M F K , I W S , WD , J W D , 3 1 NE W D , COS E WD , J3 T AB , H L ID, TE MF 

. , T E K K 

COMMON  /PERIOD/  I MO , N CDA Y S , ID Y , IH R 1 , 1 H R 2 , 1 F LAG , Jr L AG 

COMMON  / S R C E/  N PO  L , NF  NET,  NEN  A F , N E N L N , N A BPT,  N AS  A n , N A bL  N , N ACPT , 

. NACAF,NACLN, ENPT ( 16,  100)  , ENA  P ( 1 1 , 1 00)  , ENLN  (1  4 ,*.0)  , A OPT  ( 16 , 1 SC)  , 
. ABAR (1 1 , 1 00)  , A BLN ( 1U  , 100)  , ACPT ( Id,  1 ) , AC A A ( 1 1 , s4)  , ACL  N < 1 6 , 2S  0) 
DIMENSION  SCRNAM  (3) 

DATA  SCRNAM  / '1HENVIRON  , 8HAIPHASE  , 8HATRCR  «E  T / 

AT  THIS  ENTRY  ILL  WINE  INDEPENDENT  SOURCES  ArE  PRINTED 


ENL  N ft=  1 . 0 
WFITE (6,200) 

IF  (NE  NET.  EQ.  0)  GC  TO  1 1 
WFITE  (6,  100)  SC  1 N A M (1) 

DC  1 1=1, NEN FT 

1 WRITE (6,  101 ) I,  (ENPT (J ,1)  , J=1 , 4)  , (ENPT  (J  ,1)  , J=6,b)  , (ENf T (J, I)  , 

. 0=10,15.) 

11  IF  (NENAR.EQ.C ) GO  TO  12 
WRITE  (6,  110)  SCRNAM  ( 1) 

DC  2 1=1, NENAR 

2 WRITE  (6,  1 1 1)  I,  (ENAR  (.1,1)  , J = 1 , 4 ) , (LNAR  ( J , I ) , J = 6 , 1 0) 

12  IF (NENIN.EQ.O) GO  TO  13 
WPITE  (b,  1200)  SORNAM  ( 1) 

DC  5 1=1, NFNLN 

WRIT  E (6, 1 21 1)  i , (ENLN  (J,I)  , J= 1, 4)  , (ENLN  ( J , I ) , J = 9,  1 J) 

5 WRITE (6,  1222)  'ENLN  (J,I)  ,J=6,8) 

13  IE  (NAFFT. EQ.C) GC  TO  14 
WRITE (6,100) SCRNAM  (2) 

DC  3 1=1, NAHPT 

3 WRITE  (6,101)1,  ( A B PT  ( J , I ) , J=1, 4) , ( ABPT  (J,I),J  = b,«),(A3PT(J,I), 

. J=1C, 15) 

14  IF (NABAR. EQ. 0) GO  TO  15 
WRITE  (b , 1 10) SCR  RAM  (2) 

DC  4 1=1, NABAR 

4 WFITE  (6,111)1,  (ADAR(J,I),J=1,4),  (AbAK(J,I),J=o,10) 

15  IF (NABLN.FQ.O)GO  TO  16 
WFITE (6,1200)  SCRNAM (2) 

DC  6 1=1 , NAELN 

WFI1F(6,1211)  C,  (ABLN  (J,I)  , J=  1 ,4)  , (A  BLN  (J,I ) , J = 9,  1 3) 

6 WHITE  (b,1222)  ( AB LN  (J  , I)  , J=6 , 8) 

16  CONTINUE 

100  FORMAT (1HC, Ati, 14H  POINT  SOURCES/ 1 X,  1 1 9 ( 1H-) / 

. 8X,  1HI,  1 IX, SB  1EOMETRY , 1 1 X ,22HI  STACK  PARAMETERS  I,4X,1HI/ 

. 1 X , 8 H SOU  RC  F.  I,  3X,  1HX,8X,  1HY,7X,  1HZ.3X,  12HWIDTH  I T EM  P , 4X  , 3H  VEL, 
. 3 X , 1 1 HDI A M I I , 1 3X,28HEMIS5IONS (MICROGh AMS/6EC0NL)  / 

. IX, 14HN UMBER  t ( KM) . 5X , 4 H (K M) , 4 X, 25H ( M)  ( M)  I ( DEG  K)  (M/S), 
. 3 X , 1 CH ( M)  TFLAGI,4X, 2HCO,9X, 2HHC,BX, 3HNOX, 9X,2HPT,BX, 3HS02/ 

. IX, 1 19 (1 H-) ) 

10  1 FORMAT(I6,1X,2c9.2,2E7.1,F7.C,2F7.1,E4.0,5(1PE11.J)) 

110  FORMAT  (1HC,  A8,  1 3H  A R ^ A SOU RCES/ 1 X , 9 4 ( 1 H-)  / 

. 8X,  1HI,  1 IX, ShGECM  ETR  Y , 1 1 X ,1HI/ 

. 1 X , 8H SCURC E I ,3X,  1 H X , 8X , 1HY,7X, 1 HZ , 4X , 6HSID2  I, 

. 1 4 X , 28 HE MISSIONS (MICROGRAMS/SECOND)  / 

. 1 X , 1 4HNUMB  FR  T (KM)  , 5 X , 4 H ( K M ) , 4 X , 3 H ( M ) ,4X,5H(M)  I, 

. 5X , 2HCO, 9X , 2HHC,8X , 3HNOX , 9X , 23 PT , b X , 3HS02/ IX, 94 ( 1 h- ) ) 

111  FCRMAT(I6,1X,2,r9.2,2F7.1,5(1PE11.J)) 


INDIP000 
INDIPOO  1 
INDIF002 
TNDIP003 
INDIPOOU 
INDIP005 
I N D I P 0 0 6 
INDTP 007 

INDIPOOP 

INDIPOO  9 
T NO  I PC  10 
INDIPC  1 1 
INDIP012 
I ND IPO  13 
INDIP014 
:ndipci5 
INDIPC  16 
INDIP017 
I N D I P 0 1 8 
INDIPC19 
INDIP020 
INDTP021 
INDIP022 
TNDIP023 
INDIP924 
INDIPC25 
INDIP026 
INDIP027 
INDIP028 
INDIF029 
TNDIP030 
INDIPO  3 1 
INDIP032 
i NDIP033 
INDIP034 
INDIP035 
INDIP036 
INDIP037 
INDIPO 3 8 
INDIPO  39 
INDIPOUO 
INDIP04 1 
INDIP0U2 
I NDI POU  1 
INDIP04U 
I NDIP045 
INDIP046 
iNnirou7 
INDIPOsB 
INDTP044 
I NDI \ "BO 
INDIPO1 1 
INDIPC s 2 
INDIP053 
INDIPC' 4 
INDIP355 
INDIP056 
INDIPO1'  7 
INPIP056 
INDTP059 
INDIP06C 
INDIPOM 


UG 


1:1 

1/.2 

1200 


1211 

12  22 
200 


FORMAT  (1HG,A8,13H  LINF  SOURCES/  1 X , 1 c3  ( 1 H- ) / 
ex,  11:1,  1 1X,8LGE0fiETR  Y,  11X,  1HI  , 10  X,  1HI,54X,  15HI  A IP  OR  A FT  ONLY/ 
U.eeSOUtCE  I,  3X,  1HX,ex,m,7x,1H2.,3X,18HNIDTH  : VELOCITY  I, 

13X, REMISSIONS  ( NIC  RCGR  A P'S/S  ECOND)  , IjX,  IGhI  LENGTL  TIME/ 

IX,  14HNUMBER  I (KM)  ,5X,9H(KM)  ,4X,2jH(M)  ( M)  I (KM/HH)  I, 

bX,2HCC,9X,2HKC,8X,3HNOX,9X,2HPT,8X,  3HS02,  3X,  19  til  (KM)  (HR)  / 
IX, 123  < 1 H- ) ) 

FORMAT (16, IX, *F9. 2F  7.  1, 6 (1PE 1 1 . 3)  ,0Pf 7. 2,  1PE1  1. J) 
FCFMAT(7X,2F9.2,F7.1,7X,1PE11.3) 

FORMAT  (1H0, A8, 1 3H  LINE  SOUPCES/1 X , 9 6 ( 1 H - ) / 
bX , 1RI, 1 1X,8LGECMETFY,  12X, 1HI/ 

IX, 86  SOURCE  I,  3X,  1HX  ,8X,  1HY.7X,  1HZ,  4X,  7HKI  Dili  i, 

2 ?X , 28HEMISSIONS(MICFCGPA  MS/ SECOND) / 

1X,14HNUSBEF  I (KB)  ,e>X,4H(KM)  ,4X,  3H(M),4X,bh(M)  ', 

6X,  ?HCO,  9X  , 2HHC.8X,  3 HNOX  , 9X  , 2HPT  ,8X  , 3H  S02/ 

IX, 9t  (1H-)  ) 

FORMAT  (16,  IX,  ..f  9.2, 2F?.1,*X,5  (IP E 11. 3)  ) 

FORMAT  (7  X ,2E9. 2,  F7.  1) 

FORMAT  (2  3 HO  Vi  IN  p INDEPENDENT  SOURCES/1  HO) 

RETURN 


ENTFY  DEPINP 
AT  TITS  ENTRY  AI) 


INI'  DEPENDENT  SOURCES  utl.  PRINTED 


WRITE  (t,  3C0)  S , N D 

300  FORMAT  (1H1 , 'WIND  DEPENDENT  SOURCES  F0F',F8.4,'  MPS  VINO  SPEED  AND 
. ,F6.4,'  RADIANS  WIND  DIRECTION') 

IF  (IFlAG.Eg.O)  GO  TO  IS 
IF  (NACP1.EQ.0)  GO  TO  17 
WRITE  (6,  ICO)  SO ri  N A M ( 3 ) 

DC  7 1=1, N ACPT 

7 WPITi  (6, 101)  I,  (ACPT (J ,1)  , J=1 , 41  , (ACPT (J ,1)  , J=b  ,b)  , (ACPI (J,  I)  , 

. *3  = 11,15) 

17  IF  (NACAP.EQ.O)  GO  TO  18 
WRITE  (6,  110)  SO  SNA'!  ( 7) 

DC  8 I=1,NACAF 

U WRITE  (6,  1 1 1)  I,  (ACAR  (D  ,1)  ,,P1  ,4)  , (ACAfc  (J,I)  , J = t,  1u) 

18  IF(NACIN. EC  - 0 ) GC  TP  19 
WRITE  (6, 120)  SO  3 NAM  ( <) 

DC  9 I-1,NACLN 

IF  (AC  IN  (9,1)  . NE.  1.0)  GO  TO  19d7 

WRITE  (6,  121  9)  I,  ( A c L N <J,I)  , J 1 , 4)  , (ACLN  (J,I)  , J 13,17)  , ACLN  ( 1 1, 1) 
WRITE  (b, 1229)  (ACLN  (J,  I)  , J=b, 8) 

12  19  E CP MAT  (16, 1 X,2F9. 2, 2E7.  1, «X,  1HN/A ,«X , S ( IP  El  1. 3)  , OPF  1 , 4X, 3HN/A) 

1 W 4-  9 FCPMAT(7X,2F9.2,F7.  1 , 1 1 X , 3HN/A) 

GC  TC  9 
1987  CONTINUE 

WRITE  ( t ,1.  1)  I,  (ACLN  (.1,1)  ,J=1,4),ACLN(9,  I)  , (ACLN  (J,I)  , J-  13,  17)  , 

. ACLN  (1 1, I)  , ACLN  (12  , I) 

WRIT  F (f  , 122)  (ACLN  (J  ,1)  , J=b,8)  , ACLN  (10,1) 

8 CC NT  I NUi 

19  CONTINUE 

R i T 1 ' f N 
l Nl 


INDIP062 
INDIP063 
INDIF064 
INDIP065 
INDIP 066 
INDIP067 
INDTP068 
INDIPC69 
TNDIP070 
INDIP071 
INDIP072 
INDIP073 
3 NOIF074 
TNDIP07S 
INDIP076 
I NDIP077 
INDIPC78 
INDIP0",9 
IND1T080 
I ND I P08  1 
INDTP082 
INDIP083 
I ND I P08U 
INDIP085 
INDIP086 
INDIPC87 
TNDIP088 
INDIP089 
I NDIF090 

INDIP091 

INDTP092 
INDIP09  3 
INDirC9u 
I ND I P09  c 
INDIF096 
INDir097 
INDIP098 
TNDIP099 
TNDIP1C0 
INDIP101 
INDIP102 
INDIP  103 
INDIP19U 
INDTP105 
INDIP106 
INDIP107 
INDIP103 
TNDIP109 
INDIP  1 10 
INDI PI  1 1 
INDIP112 
INDIP 113 
IN  DTP  1 1 u 
I NO  I PI  1 r- 
I N D I p 1 1 1> 
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PROGRAM  MAIN 


Purpose : 


Input : 


Output : 


Procedure : 


Subroutines 

Called: 


To  read  the  general  problem  input,  set  up  the  receptor 
grid,  call  a routine  to  read  the  master  emission  file 
and  then  call  the  long-term  model. 

1.  Problem  title 

2.  Restart  data 

3.  Definition  of  pollutants  to  be  output 

4.  Description  of  special  cases 

5.  Description  of  receptor  grid 

6.  Description  of  statistical  receptors 

All  input  is  printed. 

1.  Read  card  input. 

2.  Calculate  receptor  locations. 

3.  Check  statistical  receptors  against  the  receptor 
locations . 

4.  Call  routine  to  read  master  emission  file. 

5.  Call  the  long-term  model. 


READ,  MAINL 


109 


COUNT  THF.  NUMBER 
OF  POLLUTANTS 
I SELECTED , IP,  ANE| 
PRINT  ^11:  NAMES 


I 


NCASE,  (WDSP(I) , 
WSSP(I),  1=1,  NCASE 


n n n 


THIS  PROGRAM  IS  THE  IAIN  DRIVER  ROUTINE  -MCh  HEADS  IN  RECEPTOF  AND 
OTHER  GENERAL  DATA,  CAIIS  SUUBOIJTINE  READ  TO  MAD  THE  HASTEN 
.SOURCE  EHISSrCN  TAFE,  AM  THE  DIRECTS  CONIROL  TO  HAINL  EOF  THE 
LONG  TER*  NODEL 


RFAl*R 
COMMON 
CCHHCN 
cor  HON 

C f H H C.  N 

cchhcn 

. , r F M K 

CCHHCN 
CCH HON 
CCHHCN 
CCHHCN 
CCHHCN 
CCHHCN 
CCHHCN 
. NACAR, NACLN 
. A E3  A R < 1 1 , 1 0 0 
CCHHCN  / T I T L 
CCH.Hi  N /STAI 


' (O  , b) 

( lo)  , I POL 
•D,JSTAd,HL 


•E 


, tU 


lclnah.xnahe 

/AIP.AL/  RECOA  T ( 3 , fc  , 11.) 

/ANNHF.T/  T'<AH,  ADD,  P,PA,  .SBAh,  DTUAR 
/CONS/  PI4,PIrt,PT16,KPR,AMXHT  ( b , b ) , A X i 
/I  NFC/  1 H E L E 1 , I W N C I R , I T Y P E , H . A E R 0,  SO  in 
/ H E T / i>3,W'.  HPHjIWG,  «D,I»D,SINEWD,Cl/oE> 

HA 

/.NETS  •::/  WNDFRC  (•),  1b,  b)  , l> IJ  (o)  , SI  NW  J(  16) 

/HC  NH  FT/  THBAR  , NS. 1 BAR  , A.HDHbR,  DTMuA  R 
/PERIOD/  IHONTH, NO CATS,  IDA* , I HR  1,  I. SR  i, IELAv 
/ R C P I / NRECEP,  HECEIP  (^, 

/ R S T F T / TRSTHT,i?ERI0,IRPh,IRMN,lFW3,IhWD 
/ S T E C / NCASE, WSSP ( 3)  , WDSP  ( 3) 

/SRC  Z • N POL ,NEEfT,NFNAR,NENLN, NAbPT, NABAR.NABLN.NACPL, 

ENPT(lf),  100)  ,FNAF(11,1uO),ENLN(l4,20)  , A u PT  ( 1 o , V.O) 
, A BLN  ( 14  , 100)  , AC  PT  (lb,  I)  , A^AR  (11,24)  , ACL  N ( 1 B , 25  C) 
POLS  AM (b)  ,T ITLE1  (JO)  , IPCHOS  (b)  , NX POL, IP 
NSTAPF, NNSTAT.RSTA  f (c , JO)  ,1 RS I AT  (312) 


■ ■ D ( 16) 

, , J FLAG, 


ION 


REAL  A N £ PRINT  RECEPTOF  AND  OTHER  GENERAL  INPU1 


1 

no 


.ro 


READ (5, 10P)  I TLF1 

FCRHA  I (2  0 A4  ) 

PRIM  2C0 , TJILF1 
FORMAT  (1H),J 


. An) 


1 3C 


1 1C 


31 


40 

4 1 


JO  3 


1 40 


4H 
JC  1 


49 

202 


50 

51 


REAL  (5,  1 10)  1FPR,IRHN,  I R N S , I R « D 
FCRHAT  (101 b ) 

I fi  ST  RT  = 0 

IF  (IRPP.NF. C)  I H S T P T = 1 

READ  (5, 110)  NXPCL,  XNAHE 

FORHAT  ( I 6 , 5 A H) 

IF  (NXRCl. EQ. ; ) GO  TO  11 
P C L N A H (6  ) = X N A M E 
CONTINUE 

REAL  (5,1  10)  (IIC BOS  (1)  ,1=1 , b) 

DC  40  1=1,6 

IF  (TICHCS  (I)  . LE.O)  GO  TO  41 
CCNTINUF 
I F = I - 1 

IPINI  2 k,  3 , (FOLNAH  (TPCHOS  (I)  ) , 1=  1,IP) 

ECRHAT  (ilMOPOLLUTANTS  SELECTED  /bAB) 

READ  (5,140)  NCASE,  (Wt)SI  (I)  , WSSP  (I)  ,1  = 1, N CASE) 

FORMAT  (1 6,6 Eb. 0) 

1 F (NCASE)  4 b , 4 H , 4 S 
FRINT  *C1 

FORHAT (3 1H0NO  SPECIAL  WIND  CASES  CONSIDERED) 

GC  IC  51 

PRINT  202,  ( I , W D SP  ( I)  ,WSSP(I)  ,I-1,NCASE) 

FCRHAT  (20H0SPECIAL  WINE  CASES  /5  3H  CASE  WIND  DIRECTION  (DEGREE 
.)  WIND  SPEED  (KNOTS) / (lb  , FIB,  2, F23. 2) ) 

DC  50  I = 1 , NC  A ^E 

WDSP  (I) =WDSF (I) * 0.0  174533 

WSSP  (I)  =WSSP  (I)  *0. 5 14B 

CONTINUE 

REAL  (5,  120)  XBASE, YBASE,INCPX, INCRY, DELTA 


HA  I N0000 
HA IN000 1 
MAIN0002 
HA  I NO  00  3 
"A  I N007U 
HATNOOD5 

* A I NOOOb 
« A I N 00  0 7 
“a:n  i ; r 

* A I N 0 D ')  <i 

•aindoi: 
H A r N ' 0 1 1 

012 


“ A 
*A 
•"A 

«A 
" A 


3 


X ' 0 1 4 
N . i 1 5 
V'''1A 
HAINr*017 
MAIN  IB 
H A r N ' ■>  1 4 
ha  i r o 2r' 
MAI  NO  0 2 1 
H A I N 0 0 2 . 
HA  I SC  0 J 3 
HA  I NDu J4 
“AT  N0025 
HA INu02b 
H A I N ) 0 2 7 
HA  I N 102*3 
H A I N 0 J 4 

HATS  030 
HA INRD  3 1 
H A : N ' D ) 2 
H A I N 0 0 3 1 
MAIN  ) C 34 
HAIN'DIS 
HAIRDO  3* 
H A T N D 0 3 7 
H A I S ■'  0 3 B 
HA  I N 7 0 34 
HA  I NO  04  D 
H A I N 0 0 4 1 
H A I N 1042 
H A I N 0 0 4 3 
HA  I N’'l44 
"AINO luB 
HAT  N 0 0 4 b 
HA  I NO  '47 
H A I N 11  D 4 B 
H A I N 0 04  4 
HA  I N D 0 5 D 
H A I K 0 :■  5 1 
HAINDD52 
HA  TNG  05  3 
H A I N .)  0 5 4 
SNA TNO05S 
HA  I Ni'CSb 
HA  I NO  0 57 
HATN0058 
H A T N D 0 S A 
HA  I NDOBO 
HATNOOh  1 
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WO 

Fl'Rf1AH2M.O,21ifrtl.O) 

N A I NO  06  2 

FKNT  204,  XR ASF, YBAS f , INCRX , I NCRY,  DELTA 

NA  I NO  06  3 

204 

F ;•  N AT  (4  JHOl  )»'  ?.  8 LEFT  COB  N ER  OF  RECEPTOR  GRID  IS  AT  ( , FR 

. 3,  1 H, , H A I NC 06 4 

.Fm  7,  11IJ/12H  THERE  ARE,l4,12h  COLUNNS  AND,  14,2311  ROWS 

WITH  A SPANATN006S 

.ClNt:  OF, F6. 2, 114  K ILONEl'FRS) 

NA I N0066 

NFtCFF-C 

NATN0067 

LC  1C  1-1,1 NC  R X 

NAI N006R 

LC  1(J  J - 1 , l NCR  Y 

1 A T N 0 06  9 

M-FCEl  NRFCEI « 1 

NA I N0C7C 

FFC-r  ( 1 , N R E C E F ) XBASE ♦ (I  - 1)  * DELTA 

NAT  NO P 7 1 

10 

.4  r-  C 1 u , N r F C F F , - Y i}  A F ♦ ( J - 1 ) * D E L T A 

4ATN0072 

A l A 2 (4,111)  1 A r 0 

4 A I N 0 0 7 3 

IF  (1  ACL)  14,14,1', 

N A IN0074 

in 

P t- 1 NT  20  5 

NATN0075 

205 

FC  F i*  A 1 (J  .4 .7  N i SPECIAL  hSCEPMRS  APUtU) 

NAIN0076 

r.c  ic  21 

NA I N007  7 

15 

« E I NT  2 Ch 

NA I NO  0 7 8 

. b 

FCP«AT  U’>H0jPEC1  AL  PFCEPTCRS  AJDLCl/JOH  No.  X-COOhDI 

NATE  Y-CNAIN0079 

.CCRCINAT  E) 

NAT  NOCHO 

DC  ..C  I - 1 , l AUl 

NATN0081 

4 F A I (5,  120)  XBECFr, YPECEP 

NA I NO  OH  2 

NBEc  F F-SHECEF*  1 

NAIN00S3 

HUNT  207,  NBECFP,  XRFCEP,  YRFCFP 

NAIN00H4 

20  7 

F c R N A I (IS,F14.  3 , F 1 5 . 3) 

NA  T N009S 

FFCF.t  (1  , SRECLP)  -XRFCEP 

NA I N00H6 

R F C E r (2,NPFCF.P)  - YRECFP 

NAIN00H7 

20 

O Ml  NUT 

NA  I NO  OH  H 

2 1 

CCN1  1 NUF 

NA I N00H9 
"AIN0040 

tt 

FAT  ARC  1 INI  STATISTICAL  RECEPTOR  INPUT 

NA I N009 1 
NAT  N0092 

LC  ) 1 C 1 - 1, SRECEP 

NA I N 0 C 9 3 

I P S T A T { I ) =0 

N A T NO  044 

5 1 0 

CCNTI SUE 

NAT N009S 

REAL,  1 3C,  NRSTAT,  N.iTAPE 

NAT  NO  0 4 6 

IF  (NPSTAT.GT.O)  10  TC  JOS 

NAI N0047 

PRINT  302 

NATN009H 

JC2 

FLrNAT  (inHONO  STATISTICAL  RECEPTORS  CONSIDERED) 

NA  r NO 09 9 

IF  ( N nST  A I . LT  . 0 ) PRINT  10  3 

NA I NO  1O0 

3C  3 

FCRR.AT  (JOHOCARDS  PUNCHED  FOP  SY.NAP  INPUT) 

N A I N 0 1 0 1 

gc  ic  aoo 

NAI NO  102 

105 

PRIM  30  1 , N PSTA T 

NA  TNG  103 

3x  1 

FCrFAT  (l!10,IH,22H  STATISTICAL  RECEPTORS) 

N A T N 0 1 0 4 

CC  J«0  I - 1 , NPST A I 

NAT  NO  105 

R F A 1 1 20, XGTARF.Y STARR 

NA 1 NO  106 

DC  3/0  IC=1  , NPECF.P 

N X I NO  107 

IF  ( A S T A F P . FC.  R - CEP  (1  , IC)  . AND.  YSTARP.  Eli.  #ECEP  (2,  IC)  ) GO 

TO  330  NATNOIOH 

J 2 0 

CCNTI  NtlF 

NA I N ^ 104 

PRIM  3.  1 , JCSTARP,  Y 3TA  PF 

NA I NO  1 10 

721 

FCFNAT  (CMW  MATTSTTCAL  0 FC  FFTOR  X =,F7.3,5H,  Y =,F'7.3, 

NATNO  1 1 1 

. 1.H  NCT  CN  C.RIC) 

NAI NO  1 1 2 

STOP 

NA I NO  1 1 1 

310 

IF.  T AT  (IC)M 

NATNO  114 

FRTNl  3,  2,  : , xs: ARP , YSTA^r 

N A I N 0 1 1 S 

4/2 

F C n N M (112, 7H  AT  X , IP.  3 , 4 H Y = , F 1 C . 3 ) 

NA I NO  1 16 

PSIA1 (1, I ) s XST ARP 

NATNO  1 17 

FSTAT  (2,1)  ^ Y S T A H P 

N A I N 0 1 1 H 

340 

CCNTI  NUF. 

NAI  NM  19 

400 

CCNTI SUE 

NATNO  120 

CALL  REAL 

NA I NO  1 2 1 

CALL  MAIN!. 

N A I N 0 1 .’  2 

sicr 

NAT  N 1 12  3 

114 


SUBROUTINE  MaINL 


Purpose: 


Input : 


Output : 


Procedure : 


To  direct  the  long  term  calculation  by  reading  the  data, 
calling  the  wind  independent  source  routine  and  the 
diffusion  calculation  routine. 


1.  Card  input  defining  time  periods  of  the  calculations. 

2.  Meteorological  data  tape. 

1 . Common  block  data  to  be  used  by  the  calculation 
and  output  subroutines. 

2.  A printed  summary  of  the  meteorological  input  data. 

3.  Statistical  receptor  data  on  tape  and/or  cards  for 
SYMAP. 

1.  Set  constants. 

2.  Read  time  period  data. 

3.  Read  the  meteorological  data  for  the  month  and 
period  selected. 

4.  Compute  mixing  heights. and  critical  distances  for 
all  stability  and  wind  speed  classes. 

5.  Print  input  data. 

(i.  Call  the  wind  independent  source  routines. 

".  Call  the  diffusion  model  and  output  routines. 

8.  Check  for  statistical  output,  including  cards  for 
SYMAP. 


Subroutines 

Called: 


SIGTZ , SOURCE,  INDINP,  DIFMOD,  OUTPUT 


SUBROUTINE  MAIM 


IPR(I),  I 
IMN(I),  I 


BEGIN  LOOT  OVER  IP  PERIODS 


LOOP  OXTR  I.M  MONTHS 


POSITION  MET  TAPE  AND 
READ  DATA  FOR  PERIOD 
IP,  .ANT)  MONTH  IM. 


IRSTR'I 


/ IS  \ 

■nus 

THE  SAME 
MONTH  AND 
PERIOD  AS 
RESTART 


I SET  IHR1 , IHR2 , 
| NODAYS,  I MONTH 
AND  I PERI D 


! CALL  SIGTZ  TO  FILL 
AXCRIT  ARRAY  WITH 
! CRITICAL  DISTANCES 
FOR  ALL  STABILITY 
AND  WIND  SPEED 
CLASSES 
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: > U B E 0 P T 1 N E MAINE 

c 

THI : iCL'llSr  I T M ! IAIN  DFIVL4  KB  TUB  LONG  TERM  MODEL 

c 

F E A I * P F ! N A “ 

OCMrCN  /ATRjAL/  B ECDA  T ( 3 , I,1U) 

0C»“  N /ANNMET/  TP AP, ACD,F,PA, WSBAR, DTBAR 

< N / N / . : 4, ' IH  , P!1 B ,KPF , AKXHT  (t , b)  , AXCRIT  (6,6) 

'MB  N /L  • V - ( 13,6)  , ACIY  U,o)  , ACHR  (24,  «)  , VHBLMO  (13)  , 

. VK"t!  / 1 2 ) , V f!  ' : • (.  41  ,CVAPMO  (1  3)  ,CVAfcDY  (2)  , CVABHR  ( 2 W , CVENMO  (1  3)  , 

. t V . N T Y ( 4 ) , V’ NIP (. 4)  , FLMO  (1 1, 7)  , EEDY  <2, 7) ,FLHR(24, 7|  ,NC1 

COMMON  /IN:  / I • : > B,  r.Il'IE,  I TYPE,  HTAEFC.SOFC  ( 18)  , I POL 

< Mr  N /'*••  :/  . , - MF’H  .W0,  V D,TWD, SINE  WD, COS  END, JSTAB,HLID,TEMF 
. , T E I*  K , U A 

A /Ml  : -1/  WN- ? v (b,  1b, 6)  ,UU  (6)  , SINWD  ( 1b)  ,COSWD<  16) 

■ ““  '•  /“  NM  ■'  TM:'A'  ,WS4FAF,  AMDMbR, DTMFAfi 
‘ "V|  N /!  EF  ! 1 M NT  h,NOt  AYS,  ..DAY,  IMF  1 , I HR2,  I FLAG,  JFLAG 

C C M “ ( N /FcPT/  NR ElEF, PiCEP  (2, 31/) 

, «v  . •T  T/  :c  .TPT.IPEEir,  IRPRX,  IEMNX,  IRWSX.IFWDX 
" N / PEN/  N \ F , U S S P ( 7 ) , B’  D S P ( 3 ) 

' MB  A / C ' N ' , NE NIT, NENAP, NENLN, NAEPT, NA6AR, NAB-N.NACPT, 

. N A L A ,.NALLN,  N f- ( 1 • , 1 JO)  , EN A P ( 1 1 , 100)  , E NLN ( 1 4 , 20)  , ABPT ( 16 , 1 50)  , 

. AFAR  (11,  10  0)  , ASLN  ( 14  , 1 JO)  ,ACPT(16,  1)  , ACAfi (1 1 ,/4)  , ACuN (18,  250) 
err  N /TTTL/  POLNAK  b)  , TITL F 1 ( 2 0)  , I ECHOS ( 6),NXEOL,I?X 
(M*  N /FT  AT/  N ' I A 71  F , N PST  A T , R S i A T (2 , 20 ) , I FS I AT  (31/) 

LIFE:.:  ION  L H p 1 ( 7 ) , I H F 2 < 7)  , IMS  ( 1 i)  , NDM  ( 1 3)  , DUN  (6)  , I?fi ( 7) 

DIMENSION  S F T A F (b)  ,SR5  (►)  , SU'D  ( 1b) 

DIMENSION  M C AN  ( 4 ) 

TATA  I H F 1 /'1,7,7,io,ietict22/, 

L HE/  /2u  , 13,  >,  1C  ,13,21,6/, 

. NT F /31,*8,  11,  3C,  11,  'C,  31  , 3 1 , 30, 31,30,  31  ,Jo3/ 

DATA  MCA  N /4H  MO  NX , 4 HH  L Y , 4 HA  N N II , 4 HA  L / 

4 F c A I OARC  INPUT  ["FINING  TIME  PERIODS  PE  CALCULATIONS 

C 

BEAT  (F  , IOC)  IDAY 

READ  (S,  IOC)  (I) F (I)  ,1"  1,7) 

: EAL  ( , IOC)  (IMF  (I)  , 1=  1,  1 3) 

ICC  ET.BM.AT  (13Tb) 

0 

COMBIN’1  VEEFDAY  AND  WEEKEND  ACTTVIIY  DISTRIBUTIONS 

C 

VHM1TY  (1)  -VHTLDY  (1)  * . 7l42657*VHMLDY ( ,.)  * . 2857143 

0 VAl t Y ( 1)  = C VAPPY  (1 ) * . 7142fctD+cvABDY(2)  * . 28S7  14  3 
CVr.M  Y ( 1)  rCVFFTY  (1)  *.  7 1 4 2 6 57 + C VE NDY  (2)  * . 2857143 
re  . : = i,-’ 

2 F I P Y ( 1 , 1 1 ~ F I Y (1,1)  *.  71  42857* FLOY  (2, I) * . 2857 14 j 
DC  3 1=1,8 

3 A C D Y (1,1)  = A CD  Y ( 1 , T ) * . 7 1 42 8 57 + A CD Y (2,1)*. 285  7 1 a 3 

1 TA  Y=  1 
N “ E T : 1 

C 

0 BEGIN  LCCI  CN  PERIOD'! 

0 

DC  10  IF-1,7 

IF  (ir  F (I  P)  . LE.  0)  GO  TO  20 

0 

C PEGIN  LCCf  ON  MONTHS 

DC  10  XB=1,  1 3 
IF  (IBN  (1M) . LE. 0) GO  TP  13 
C 


MATNL000 
MATNLDC  1 
MAI NL002 
MAI  NLOO"1 
MAINT.004 
MAT  NL005 
MAI NL306 
MATNLO 07 
MAT  NL008 
MAT  SLOOP 
MAINL01P 
MAINL01 1 
MAI NL 012 
MA.TN101  3 
MAINLO  14 
M A.  I N L 0 1 S 
MA  INI. CIS 
MATNLD17 
M A I N L 0 1 8 
“AT  NL  '*  1 4 
MA.INL020 
MAT  NLC  2 1 
“AINL',22 
“A INLn2 J 
MA  T NLO  24 
MATNL025 
MAINL026 

M A ’’  N L 0 ?7 
“ A I NLD  2« 
MAT  NLC24 
MA  ' NL''  3r' 
“ATNLFjl 
MATNLO  32 
MA  TNL033 
MATSL03U 
M A I NL"1  35 
MAT  NL  3 ’6 
MA I NL  037 
“A  T NL3  38 
MAINL03Q 
M A T VL04C 
MATNl^U  1 

MATNLO 42 
M A ! NLn4  3 
MA I NL044 
MA  T NL°4  5 
MAT  NL°4t 
M A T NL  0 4 7 
MAINL04" 
M A T N LC4  D 
MATNLO SO 
MAI  N L 0 5 1 
MATNLO S2 
MATNL0S3 
MA  ! NL  0 S 4 
M A T N L05c 
MATNLO 56 
M AT  NL  OS'1 

MA I NL0S8 
MATNLOSb 
MA I NLODC 
MATNL06  1 
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c 

POSITION  NET  TAl E TO  READ  DATA  FOE  PERIOD  = ID,  AND  MONTH  = IM 

“A  I NL062 

c 

HA  I NL06  3 

IND=  (IFR  (IP) - 1)  * 13+1 MN  (IM) 

MA ’ NL064 

IF  (NMET.EO.  IND)  10  TO  11 

Mi  : NL066 

INF-  IND-1 

"I  NOb*) 

DC  1c  I = N MET , I N r 

“ATNIC67 

IF  (MOD  (1+12  , 1 3)  , EQ.O) READ  (10,  100) 

MA ’ NL^feR 

12 

READ  ( 1C,  1 10)  D 1 , 02,  D ’ , D4,  DS,D6  , D7  , WNDF  FQ,  . NDE  RU 

M A T N l - , 

11C 

FORMAT  ( 1 C X , 2F6  . 1,5E'10  . 1,  192  (/6  FI  0.0)  ) 

M A I N L 0 ■»  0 

1 1 

IF  (MCE  (IND+  12,  1?) . EQ.  C) READ (10, 100) 

v AT  NL  57  1 

PEAT  <10, 140) TttBAF ,0TMBAR, C1,P,D2, V5MB AR, PCTCWR 

“A.  :nl:v2 

140 

FCRMAT  ( 1 0 X , 2 Ft . 1 , 5F10  . 1) 

M A T N L ° 7 ! 

IE  (IRSIRT.NE.  1)  GO  TO  40 

MAI NT  07 4 

c 

v A T N T 7 oc 

c 

I F 

RESTARTING,  CHECK  THE  PERIOD  AND  MONTH  rtGAINSi  INPUT 

MATNL076 

c 

M A * NLn77 

IF  (IFF  (IP)  . NE. TPPPX)  GOTO  10 

M AT  NL  0 78 

IF  (IMN  (IM)  . NE. IRMNX)  GO  TO  1 n 

MAI NL  07  4 

40 

CONTINUE 

matnlo«o 

c 

M A T N L 0 4 1 

L 

PRINT  MONTHLY  OR  ANNUAL  DATA 

MATNI  0R2 

c 

MA  T NL08  ? 

NAOM- 0 

MAINLC84 

IF  (IMN  (IM)  . FQ.  1 3)  N A 0 M = 1 

MAT  NLCH5 

WRITE  (6,130)  DTMBAP,  (MOAN  (NAOM*2+X)  , 1 = 1, 2)  , TMRAR, 

MAI NlORfc 

(SCAN  (NACM*2+I) ,1=1,2)  ,V?MBAP 

MAINL037 

1 30 

FORMAT  (24H0TEKPEPATUPE  VARIATION  =,F10,1/ 

MATNL088 

9H  AVERAGE  ,204, 13HTEMPFRATURE  =,F10.1/ 

M A I N L 0 a 9 

. 

9H  AVERAGE  , 2 rt  4 , 1 2 H W I N D SFEED  =,F10.1) 

MATNLC90 

c 

MAINL09  1 

c 

REAT  THE  RIND  FREQUENCY  DATA  AND  CALCULATE  MIXING  HEIGHTS 

M AI NLC  3 2 

c 

FOR  All  STABILITY  AND  WIND  SPEED  CLASSES 

“ATNL093 

c 

MA I NL0°4 

DC  13  1=1,6 

MATNI.  095 

DC  14  K=  1 , 6 

MAT  NL096 

AXCRIT  (K , I ) =0.1 

MAT  NL091 

AMXHT  (K , T ) = 0 . f 

MAINL09P 

14 

CONTINUE 

MATNL099 

PEAD(10,12C)  ( (VNDFFiQ(K,.J,I)  ,K  = 1,6)  , J = 1 , 16) 

MA  T NL  100 

120 

FORMAT  (6F10.0) 

MAT  NT.  10  1 

re  17  j=  i , io 

MATNI  1^2 

RFAD(1C,  120)  (CUM  ( K ) ,K=1,h) 

MAT  NL  10  3 

DC  15  K = 1 , 6 

MA  T NL  10  4 

IF  (WNTFRO  (K,  EQ.  0 . 0)  GC  TO  15 

MA  TNL  10  5 

AMXHT  (K, I) = AMXHT  (K , I)  +DUM (K)  *W NDF SQ ( K , J , I) 

MATNL106 

AXCFIT  (K, I) = AXCRIT (K , I)  +WNDFRQ  (K, J, I) 

MAI NL  107 

15 

CONTINUE 

MAINL108 

17 

CONTINUE 

"ATNL1  19 

DC  16  K=1 ,6 

MAI NL1  10 

IF  (AXCRIT  (K,I)  . E 0 . 0 . 0 ) GO  TO  16 

MA I NL  1 1 1 

AMXHT  (K,I)  = AMXHT(K,I)  / AXCFIT(K,I) 

MATNL1  12 

16 

CONTINUE 

VAT  Nl  1 1 3 

13 

CONTINUE 

M A T N L 1 1 4 

NMET=I ND+ 1 

M A T N L 1 1 5 

c 

MAI NL  1 16 

c 

SET  HOURS,  MONTE,  PEPIOL  AN!  NUMBER  OF  DAYS 

MAINL1  17 

c 

MA  TNL  1 Ifl 

IHF 1 = I HR  1 (IFF  (IF)  ) 

MAIN!  119 

IHP2  = IHF2  (TPF  (IP) ) 

MAI Nl 120 

NCDA YS=NDM  ( IMN  ( IM) ) 

MATNI 121 

IMONTH  = IMN  (IM) 

MATNL122 

TEERIC=1PP  (IT) 

MAIN  I.  123 

121 


u o 


CALI  SIGTZ  TO  FILL  THE  AXCRIT  APRAY  WITH  CRITICAL  DISTANCES 
FCF  AIL  STABILITY  AND  WIND  SPEED  CLASSES 

KIP.  C 

CALL  SIGTZ  (II, P,DD) 

PRINT  MET  INF 'JT  DATA 


4 1 y 3 
4 1 su 


PA=PA/100. 

T£MF  = T MFAF 
TFMK  = ( T E M F - ■>2.1 
DC  4193  L= 1 , 6 
SSIAB  (L) '0.0 
SWS (L) =C.  0 


5 1 CO 


4 1^2 

4191 
c 1 05 

4090 

4190 

4195 


42C0 
4 1 °fc 
42C  1 
4 1 97 
420  2 
4 1 9cj 


-./9.  -273  . 


DC  4194  L= 1 , 1 F 
SKD  (1)  = C.C 
DC  4 190  1 = 1 ,6 

WFITF(6,4095)‘'iMON7’H,THF1,IHP2 

4095  FORMAT  ( 1 H 1 , T4C  , 34HMETECROLOG1CAL  INPUT  DATA  --  MONT  .1,  I 3, 7H  , HOURS 
. 1 3, 4 HOC  - , 13, 2 HOC/  1H0) 

WFITF (6,5017) TEMK , P 

5017  FORMAT  (130,  21HAMBIENT  TEM  FEE  AT'JRE  =,F7.1,2H  K/ 

. T 3 C , 18HAMBIENT  PRESSURE  =,F6.0,10H  MILLIBARS) 

'WRITE  (b,  5100)  L 

FORMAT ( 1 HO , T 3C , 15HSTAEILITY  CLASS, I2/T69, IbHWIND  SPEED  CLASS/ 

. 1HC,T32,  14HWIND  DTRECTION,8'<  , 1H1  , 9 X , 1H2,8X,  1 H 3 , 8 X , 1 H 4 , 9 X , 1 H 5 , 8 X , 

. 1H6) 

DC  4 191  K = 1 , 16 
rc  4192  J = 1 , 6 

SSTAB  (L) =SSTAB  ( L)  +WNDFRQ (J,K, L) 

5 VIS  (3) =SW$  (3 ) * W ND';  R Q ( J , K , 1) 

SWD (K) = S » D (K) ♦WNDFFQ(J,K, L) 

WRITE  (6,5105)  K,  (W  NDF  RQ (J , K, L)  ,J=1,b) 

FCFMAT  (1HC,T3fe,I2,9X,fcF9.4) 

WRITE  (6,4  090)  (AMXHT(K.L)  , K=1,6) 

FCFMAT  (/1H0,T30, 14 H MIXING  DEPTH  = , 3 X , 6 F 9 . 0 , 7H  METERS) 

CONTINUE 

VFITE (6,4 19  5) IM ONTH ,IHR 1 , I HR 2 

FCFMAT  (1H1, "30, 40 H SUMMARY  OF  METEOROLOGICAL  DATA  --  MONTH, 13, 

. 7H,  HOURS, 13, 4H0C  I 3,2H0C/1H0,T52,22HFRLQULNCY  OF  OCCURANCE) 
AVSIA£=0.C 
A V W S = C . C 
DC  4200  3-1,6 
AJ  = J 

AVSIAF  = AVSTAP+AJ*SSTAB  (J) 

A V W S 1 A V W S + U U ( J ) *SWS (J) 

WFITF  (6,4196)  (J,  SSTAB (J)  , J = 1,6) 

FCPMAT(1H0,T9  1,  15HSTABILITY  CLASS, 6 (/T4 0 , 16 , F 1 W . 4 ) ) 

WRITE  ( f.  , 20  1 ) « V STA  P 

FORMAT  (161,  17H A VEP  AGE  STA t ILL TY , F b . 2) 

WRITE  <6,4  19 W)  (3  , S W S (3)  ,3=  1,6) 

FCRMAT  (IRC, T3C , 16HW IN D SPEED  CLASS, b (/T40 , 16,  F W.  4)  ) 

WRITE  (6, 4202) AVW 5 

FORMAT  (IF  1 , 18FAVDRAGE  WIND  ?PFED,F8.3) 

W r IT  E (6,4198)  (3  , SWD  (3)  ,3=  1 ,16) 

FORMAT  ( 1 H C , T 3 2 , 14 H WIND  DIRECTION, 1o(/T4C,Ib,F1Z.4>) 

SWD  1 = 0. 5*SWD  (1) *SWD  (2) +SWD  (3)  +SWD  (4)  +C . 5* SWD  (5) 

SWDw=0. 5*SWD  (6)  ♦ SWD  (6)  tS’WD  (7)  + SWD  (8)  + 0. 5*SW  D (9) 

SWD3-C  . 5*SV’C  (4)  »SWD  (1  0)  ♦ SVD(  1 1)  ♦ SWD  ( U)  + 0. 5*5WD  (1  3) 

SWD4--C.  5*S’WD  (13)  +SVD  ( 14)  ♦ SWD  ( 1 5)  +SWD  ( 1b)  + 0.  5*S«iD  ( 1) 

WFITF  <6,4 199) FKD1 ,SWD2  ,SWD3,SWD4 


MAIN! 124 
MAINL125 
MAINL126 
MATNL 12 7 
MAINL128 
MAINE  129 
«AI NL1 30 
MAINL1 31 
MAINL132 
MAINL133 
MAINI 1 34 
"AINL135 
MAI NL  1 36 
MAI NL1  37 
MAINL179 
M A I NL  1 39 
MAI NL  140 
MAINL141 
MATNL142 
, MAI NL  14 3 
MAI Nl  144 
MAINL145 
MATNL146 

MAI NL  147 
MAINL148 
M A.  T N L 1 4 9 
MAT  NL  150 
MAI NL  15  1 
MA INL  152 
MAINL153 
MAT  NL  154 
MAI NL  155 
MATNL  156 
MAINE  157 
MAINE 15P 
•"A  T NL  159 
MATNL  150 
M AI NL  16  1 
MA I NL  162 
MAIN! lb’ 
MATNL164 
MA I NL  165 
MA INL  166 
MA INL  167 
MAI NL  168 
MA I NL  1 6 9 
M A T N I.  1 7 0 
MATNL  V7  1 
MAI NL  172 
"A  I NL  17  3 
MATNL  174 
MATNL17S 
MA I NL  176 
MAINI  171 
MATNI 179 
MA I Nl  179 
M A I N L 1 ‘1 0 
MATNL  18  1 
MAINL182 
MA I NL  13  3 
M A I NL  IP  4 
MAT  NL  186 


1 
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A 


non  non  non  oonn  nro  nnnn  noon 


4 199  F C R H A I (1HC,T3j,  1 3 H M I N C A DF A NT/T 44 , 2 HN F; , F 1 2 . 4/T4 4 , 2 HS£ , F 1 2 . 4/ 

. 144 , 2HS'W,F12. 4/T4  4.2HNW, F 12. 4/1 H 1) 

If  (IRS1PT.  EO.  I)  no  TC  SO 

IF  N01  RESTAR  IT  NO , CHECK  FCF  THE  STATISTICAL  OPTION  AND 
WRITE  RFACEP  RECORDS  CN  NSTAPE 

IF  (NFSTAT.GT. 0)  WRITE  (NSTAPE)  I PERID , IHONTH, NOD AY S, I D AV , THF  1 , 
. IHR2,NROL,  (FCLNAH(I)  ,1-1 , NPOL)  , N R5T  AT , ((SSTAI  (T,J)  ,1=1,2)  , J = 1 , 
. NRS1 AT)  , TITLE  1 

If  (NFSTAT.GT.C)  WRITE  (NSTAPE)  WNDFRQ 
50  CONTINUE 

CALI  THE  NON-AIR  . RAFT  SOURCF  ROUTINES  AND  PRINT  THE 
WIN!  INDEPENDENT  INPUT 

CALI  SOURCE 
CALI  INDINP 

CALI  THE  DIFFUSION  HOTEL 


IIC1-NFCI 
CALI  EIFHCD 

If  (NRSIAT.  £ 0 * >•  ) GO  TC  60 

IF  SYHAF  OPTION  IS  CHCCEN,  PUNCH  CARLS  FOR 

ENVIRON,  AIRBASE  AND  AIRCRAFT  CONCENTRATIONS 

DC  55  K = 1 , 3 
FUNCh  57, NRECEf  ,K 
57  FCRHAT  (216) 

DC  5 5 N= 1 , N SECEP 

EUNCH  5b,  (R  ECLE  (I , N)  ,1=1,2)  , ( R ECDA.T  ( h , J , N)  , J = 1 ,NPOL) 
5B  FCRHAT  ( 1 PH  E 10 . ') 

55  CONTINUE 
bO  CONTINUE 

PRINT  RESULTS 
CA.II  OUTPUT 

IF  (NFS! AT. EQ.G)  GO  TC  1R 

IF  SYHAF  OPTION  IS  CHOSFN  PUNCH  TOTAL  CONCENTRATIONS 

K = 4 

PUNCH  57, NRECFP.K 
DC  15  N= 1 , N FECEP 

PUNCH  5ti , (RECFF  (I , N ) , 1=  1 , 2 ) , ( P ECD AT ( 1 , J , N) , J= 1 , N POL) 
15  CONTINUE 

If  (NFSTAT. IT. C)  GO  TC  IB 

IF  STATISTICAL  OPTION  IS  CHOSEN  RECORD  THE  OUTPUT 

WBI1E  (NSTAEE)  NRSTAT 
DC  49  N=1, NRSIAT 
K = T PSTAT  (N) 

IF  (K.NE.O)  W FI TE  (NSTAPE)  (P ECDAT  ( 1 , J , K)  , J= 1 , NPOL) 
49  CONTINUE 
IB  CONTINUE 
10  CONTINUE 
20  CONTINUE 
P E T U F N 


HATNL136 
HA.  TNL197 
HAT  NL  188 
HA  I NL  1B9 
HA  I NL  1Q0 
HAI NL 19  1 
HAINL1B2 
HA  T NL 1 9 7 
“ATNL194 
HA’ NT  195 
H A I N L 1 5 6 
HAINL197 
M A T NL 1 9 B 
HA.  T N!.  199 
H A I N L 2 0 0 
H A I N 1. 2 r 1 
HAT NL202 
HATNL2''? 
HAT  NL 20 4 
H A ’ NL  2C  5 
H A T NL  2 0 6 
HATNL2A7 
MA.’NL2''S 
HAT  NL205 
HA  T NL2  10 
H A.  I N L 2 11 
HAT NL 2 12 
H A.  I N L ^ 1 3 
HAINI214 
HATNL215 
HATNI215 
HATNI210 
HATNL21B 
HAI NL 219 

HA.  I NL  220 
H ,M  N L 2 2 1 
“ AT  NL  22  2 
“A  I NL22  3 
HATNL224 
“ATNL225 
HATNL226 
HA  INI  2 21 
HAIHL228 
MATNL229 
HAT  NI.2  10 
HA  I NL2  1 1 
HATNL232 
HAINL231 
HA  T NL  234 
HATNL235 
MAI NL236 
HA  I NL2  37 
HA  T NL?  3B 
HAINL239 
HAT  NL  24  0 
HAI Nt  24  1 
HATNL242 
H A T NL  24 3 
MAI NL  24  4 
HATNL24S 
HAI NL 24 6 
HAT  NL  24  7 
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SUBROUTINE  MKTHA 


Purpose: 

To  calculate  diurnal  emissions  allowing  each  source  in  a class 
to  have  a unique  or  default  distribution  pattern. 

Input: 

1.  The  ICLASS  number  of  the  sources  and  NPTC,  the  number  of 
sources  not  using  the  default  of  a uniform  distribution. 

2.  For  each  of  the  NPTC  sources,  the  source  ID  number  and  frac- 
tions of  the  hour,  day  and  month,  FH,  FD  and  FM,  which  that 
source  is  on.  If  one  or  two  of  the  fractions  are  left  blank, 
the  default  is  used.  If  all  are  blank,  the  source  is  assumed 
to  be  off. 

Output: 

The  array  specified  in  the  calling  sequence  to  the  subroutine  is 
filled  with  the  computed  emission  data. 


Subroutines 

Called: 

C LASSE 
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SUBROUTINE  METHA 


NON  - UN  I FORM 
DISTRIBUTION: 

PRC  = FM-FD-m-T/DAYS-  10b 

ITT 


UNIFORM  DISTRIBUTION: 

*H  ™C  ' 


MULTIPLY  ALL  POLLUTANT 
EMISSIONS  FOR  SOURCE  N 
BY  PRC  AND  STORE 
RESULTS  IN  ARRAY 
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SURrCUTINE  METH  A ( !1  A X *1 , ASP  A Y,  T 1 , I i , ICL ) 

C 

C This  ROUTINE  CALCULATES  DIURNAL  EMISSIONS  ALLOWING  EACH 

SOURCE  IN  A CLASS  TO  HAVE  A DIFFERENT  DISTRIBUTION  PATTERN . 
C DEFAULTS  ARE:  FH  1/ 1 4 

C EC  1/7 

o FM  1/12  OP  1 

COMMON  /PER  TOE/  I *i  ON  T H , NO  L A YS  , I D A Y , I H R 1 , 1 Hu  / , I F L AG  , J F L A G 
COMMON  /S  PC  E/  NRLTS , N ENPT , NENAK,  NENLN, N A8PT, N A6AR,NA  iLN, 

. NACPT , NACAP, NA  L S , E N f I ( 1 b , 1 0 0 ) , E N A H ( 1 1 , 1 00 ) , ENLN  ( 14 , 20)  , 

Ab  IT  ( 16  , 1 r>0)  , A BAR  ( 1 1 , 1 00  ) , A BLN  (1  <4 , ICO) 

CCMMC  N /JUNK /LAYS  , LSRCE  , NSFCE,  TURCE  ( 1 7,  3 00)  , SCR GM  ( 1 C , 100) 

. , LC.C  1,  LOC2  , NGEOM,  I PT 
DIME  NSICN  ARRAY  (11,12) 

E SRC  E 1 NSPCF+  1 
NSFCE-NSRCE+MAXN 
S ID  = C . 

ICOUNT-C 

IF  (JF  EAG  . E«« . C)  TO  5 
N F T C = 0 
TO  1C  6 

5 REA!  1,  J Cl.  ASS,  STIC 
1 FORMAT  (214) 

I (1CIASS.NE.ICL)  CALL  CLASSE  ( I CL, I C L A SS ) 
c LC  IcC  N-LSRCf , NsRC F 
IF  (NETC.EC'.O)  GO  TO  30 
If  (SID-SGRCE  (1  ,N) ) 10,40,30 
C ICGUNT-ICCUNI+  1 

IF  (ICCUNT.GT. NPTC)  50  TO  30 
REAL  2,Sir,FH,FT),FM 
<.  FCFMA1  (E4.0,UX.  <Et.  1) 

IP  (FH+FD+FM.  EC-0.0)  GO  TC.  2^ 

DETERMINE  DEFAUIT  VALUES 

If  (FM.NF.0.0;  TO  T1'  IB 
F Mr  1./12. 

IF  (DAYS. GE.  365. ) EM  - 1 . 

15  IF  (FE.EQ.0.0)  Ft= 1./7. 

IF  (EK.tQ.O.C)  FH=1./24. 

CONTINUE 

IF  <EII-SCRC£(1,N)) 3? ,40 , 3C 

UNIFORM  DT  S 1 F I R UTTc  N 

30  FRC-  1 . CE  + s/  ( 24 . * 1. 365.) 

GC  TC  50 

NCN-UNIFOPM  DISTRIBUTION 

40  EEC=FM*FE*FE*  (7  . /DA  YS  ) * (1  . OF + 6/3  . b) 

5C  DC  60  I=1,NFLTS 

ARRAY  (I+LOC  1 , N)  - SORCF  (I*LCC2 , N)  ♦ F RC 
6 CCNTINUE 

IF  (NGECM.FO.C)  GO  TO  100 
DC  70  1*1, NGEOM 
ARRAY  (I,  N)  =SCFCE  (!♦/,  N) 

70  CCNTINUE 

IF  (IFT.EQ.1)  ASRAY  (10,N)=SORCE(2,N) 

1 1 0 CCNTINUE 


METHAOOC 
METHAOO 1 
ME  TH  A 00  2 
METHA003 
METHA004 
ME  TH  A 005 
MET  H A00  6 
METHA007 
METHA008 
METHA00O 
MFTHA010 
METHA01  1 
MFTHA  012 
MET  HAO 1 3 
ME  THAO  1 4 
METHA01  5 
METHAO  16 
METHA017 
METHA018 
ME  TH  A 0 1 0 
M FT  HA  020 
METHA021 
ME  TH  A 02  2 
MRTHAC23 
METHA024 
METHA025 
M ET  HA  0 26 
METHA327 
M ET  HA  0 28 
MFTHA  02q 
M FT  HAO  30 
METHA03  1 
MFTHA032 
M ET  HA  03  3 
METHAO  34 
METHAO 35 
MFTHA036 
M ET  HA  0 37 
METHAO  38 
MFTHA030 
MKT  HA 040 
KETHAD4 1 
METH A042 
MET  HAC4  3 
METH A 04 4 
MET  HA  04 5 
MFTHA 04 6 
MET  HA  047 
METH A 048 
"ETHA.CUO 
MFTHA050 
M E T H A.  0 5 1 
MET1IA052 
METH  A 0 5 3 
M E T H A 0 5 4 
METHA055 
METHA0S6 
M FT  HA  0 5 7 
METHA.058 
METHA059 
BETH A 060 
MET  HA061 


SUBROUTINE  NETUB 


ITirpose : 


To  calculate  diurnal  emissions  using  a degree-hour  method. 


Input : 

The  ICLASS  number  of  the  sources  and  UNII-'RC,  the  fraction  of 
emissions  which  are  to  be  uniformly  distributed. 

Output: 

The  array  specified  in  the  calling  sequence  to  the  subroutine 
is  filled  with  the  computed  emission  data. 


Sub rout ines 
Called: 


CLASS!-: 
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SUBROUTINE  METHB 


I HILT I PLY  ALL  POLLUTANT 
! EMISSIONS  FOR  SOURCE  N 
EY  FRC  AND  STORE 
| RESULTS  IN  ARRAY 


J^__ 

I FILL  ARRAY  WITH 
l PROPER  GEOMETRY 
! DATA  FOR  SOURCE  N 


END  LOOP  ON  SOURCES 
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BUPPOUIINE  ME7i!B(TAXN,APRAY,I1,I2,ICL) 

THIS  HOOT  I N f.  CALCULATES  DI'JRNAL  EMISSIONS  USING 
A TFOl-Fh-HOUH  METHOD 


METHbCOO 
MFTHBOO 1 
.1FTHB002 
METHBOO  3 
METHPOOU 


CCBHCN  /r  r.R  IOC/  I M ONT  H . NO  DA  Y S , IDA  Y , I H R 1 , IH  R2  , I F L AG  , J FL  AG 

METHBOO* 

COMMON  /SHOE/  NPLTS  , N F N PT  , NE  N A P,  N ENL  N , N ABPT , N Ab AH , N A BLN , 

METHB006 

. NACFT  ,NACA  , b ACLN  , EN  FT  (1  6,100)  ,ENAh(11,10C)  , ENIN  ( 1 4 , 20)  , 

METHR007 

ABPT(16,1SC) , AEAh (1 1, IOC) , ABLN (14,  100) 

METHB009 

COM. M CN/J 'JNK / DAYS, L. IRC  E,NSPCE,SOHCE(17,  300)  , SCRGM  (10,200) 

METHBCQ9 

. , LCC1,LOC2,NG?.OM, ipt 

MFTHB010 

CCMMCN/MST/XS,  ISM  PH  , IKS  , VD,  IW  D,SI  NWD,  COSW  D, 

METHE01 1 

JSIAB, Hi IC, TEN F, TFMK 

MFTHB012 

Dint  NSICN  ARRAY  (11,12) 

METHP013 

COMMON  /ANN  MET/  T3AR  , ADD,  P,i'A  , 4SBA  H,  I)  TEAR 

N FT H B0 14 

I Sf  CE“ NSFCE+ 1 

NETHBO  1 5 

NSPcE-NSRCE+MAXN 

MFTHPC  1 6 

1MP=TeMF 

METHB017 

IF  (TtnF.GT.6L-.)  TMP=bb. 

MFTHB01 8 

IF  (JFI-AG.Ev.C)  GO  TC.  5 

METHB014 

ONIFFC-. 10 

METHB02C 

GC  TO  b 

MF.THF021 

5 

FEAD  1,ICLA-5, UNIFHL 

MET  HBO  2 2 

1 

FCRHAT  (14 ,4  X.F8.7) 

METHEG23 

IF  (I  CLASS.  NE.  I CL)  CALI  C LA  SSL  (ICL.ICLASS) 

MFTHB024 

b 

FFC--  ( ( (1  . O-IINIFRC)  * ( (66.  0-TMP)  / (ADD*,.  4. 0)  ) ) t (U  N I FRC/  ( 24 . 0*  3b  5. 

.0)  ) ) BETH P 0 2b 

* ( 1 . GL  + b/3 . o) 

v.  FTHB026 
METHP027 

CC  3 C N = LFECF, NSRCE 

METHB028 

DC  10  I = 1 , N P L T S 

npY1  HB029 

A FRA Y (I  + LOC1, N)  "SORCE  (I  + LCC2, N)  * FRC 

METHPl 30 

10 

CONTINUE 

METHE031 

IF  (NGECM.EQ.O)  GO  TO  30 

METHB032 

LC  20  I 1 , N G EC N 

METKB033 

ARRAY  ( T , N ) =SOPCE(I*2, N) 

METHP134 

2 0 

CCNTI NUE 

METHP035 

30 

CONTINUE 

METHBO  36 

RETURN 

(IF.  THB137 

ENE 

"ETHPJ  34 
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SUBROUTINE  METHC 


Purpose: 

To  calculate  diurnal  emissions  using  the  same  distribution 
pattern  for  all  sources  in  the  class. 

Input : 

The  ICLASS  number  of  the  sources  and  the  fractions  of  the  hour, 
day  and  month,  FH,  IT)  and  FM,  which  the  sources  are  on.  If 
one  or  two  of  the  fractions  are  left  blank,  the  default  is  used. 
If  all  are  blank,  the  sources  are  assumed  to  be  off. 

Output : 

The  array  specified  in  the  calling  sequence  to  the  subroutine 
is  filled  with  the  computed  emission  data. 


Subroutines 

Called: 


CLASSE 
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SUEBCU11NE  MFTHC  (M  AXN  .ARRAY,  11 , 12,  1CL) 

MFTHCOOC 

c 

MET  HCOO  1 

c 

I HI  S ROUTINE  C \ LC'J  L AT  ES  DIURNAL  EMISSIONS  USING  THE  SAME 

■ETHC0C2 

c 

DISTF IEU1  ION  F4TIERN  EOS  ALL  SOURCES  IN  A CLASS. 

MFTHC003 

c 

DEFAULTS  ARE  : ,-H  - 0 OF  1/12  OR  1/24 

M ET  HCOO 4 

c 

?D  = 1/7 

METHC005 

0 

r M - 1/  12  OF  1 

METHC006 

c 

Mt  THC  007 

COMMON  /SRC  E/  N PLTS  , N t NE-T  , NF  N A R , N c t.  L N , N Ad  PT  , N As  A h , N ABE  N , 

M. ET  HCOO 6 

. NACPT,NACAR,NACIN, FNFT (1 6, 100)  , FNAh ( 1 1,  10O)  , ENLN  (14,20), 

METHC009 

AF  PT  ( 1 6, 1 50)  , A OAR  ( 1 1 , 100)  ,ABLN(l4,100) 

METHC010 

C C M MC N/J  U NK/D  A Y S , L S °C  F , NS F CF, S 0 RC  L ( 1 7 , 3 CO ) , S ORGM ( 1 0 , L 0 0 ) 

METHCO  1 1 

. ,LOC1 ,LOC2 ,NGSCM, i PT 

MF  THC''  1 2 

COMMON  /PER IOP/  TM ONT H , NO P A Y S , I 0 A Y , I h n 1 , 1 ri F2 , 1 E L AG  , J F L AG 

MFTriCOI 3 

DIMENSION  ARRAY  (11 ,12) 

ME  THC  0 1 4 

LSRCE=NSFCE+ 1 

M FT  HC  0 1 c 

N 5 PC E=  NS  RC F + M A.  X N 

METHOD  16 

IF  (J FLAG. EO.DV  GO  TO  5 

*F  THC  " 1 7 

FD=1./7. 

MFTHCO  1 u 

F M = 0 . C 

METHCC19 

F H = 0 . 0 

METHC020 

GC  TO  6 

MS THC 02  1 

5 

READ  1 , 1 C L A S S , f H , F D , F M 

METHC022 

1 

FORMAT  (I4,4X,3F8.7) 

MFTHCO 2 3 

IF  (ICLASo.  NE.  ICl.)  CALL  CEASSE  (ICL,TCLAsS) 

MFTHCf\24 

IF  (IH+FD+FM.EO.0.0)  GO  TO  10 

MET  HCO  25 

c 

HETHC026 

c 

LET  ERMINE  DEFAULT  VALUES 

METHC027 

c 

METHCC28 

IF  (FD.EQ.0.0)  F P = 1 . / 7 . 

METHC029 

6 

IF  (FM.NF.0.0)  GO  TO  7 

MET HOT  30 

F M = 1 . / 1 2 . 

METHCC 31 

IF  (CAYS.GE.3fc  >.)  FM  = 1 . 

M ET  HCO  32 

7 

IF  (FH.NE.0.0)  GO  TC  10 

MET HCO  3 3 

IF  (IHR1 .GT. 6. AND. IHF1 . LT.  19. AND. IHRi. GT. 6. AND.IHR2.LT.  19) FH  = 1 

./12 . MF THCC34 

IF  (IHF1.EQ.  1.  AND.  THR2.EQ.24)  FH=1./,,4. 

METHCC  35 

10 

FPC=FM*FD*FH*  (7. /DAYS) *(1.05  + 6/  3.6) 

MFTHCO  16 

c 

MFTHCO  17 

20 

DC  100  N- LSRCE  NSRCF 

MFTHCC  38 

DC  30  1= 1 , NFL1 3 

METHCO  19 

AFRAY  (I  + I.OC  1 , N ' =SORCE  (I+LOC2,  N|  *FRC 

METHC04C 

30 

CONTINUE 

METHCC4  i 

IF  (NGEOM.EO.C)  GO  To  100 

M E T H C 0 1*  2 

DC  40  I = 1 , N G EC  M 

MET  HOC « 3 

AFRAY  (I , N) = SOI  OF (1  + 2, N) 

«F  THC 04 4 

40 

CCNTINUF 

M FT  HCO 4 c 

IF  (IH.  EC.  D PRAY  (10, N)  =SOFCF(2,N) 

METHCO 4 6 

10C 

CONTINUE 

METHC04  7 

RETURN 

MF’  TilC  04  0 

END 

MET  HCO  4 9 

I 
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Purpose: 


Input : 


Output : 


SUBROUTINE  MKTHD 


lo  calculate  diumal  emissions  using  the  temporal  distribution 
arrays  for  fuel  handling  activities. 


Ihe  array  specified  in  the  calling  sequence  to  the  subroutine 
is  filled  with  the  computed  emission  data. 


Subroutines 

Called: 
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SUBROUTINE  METHD 


START 


SET  LSRCE  AND 
NSRCE  LIMITS. 
SET  HOUR  LIMITS 
AND  COMPUTE 
NUMBER  OF  HOURS 


BEGIN'  LOOP  OVER  N 


SOURCES 


COMPUTE  AVERAGE 
HOURLY  FUEL  HANDLING 
ACTIVITY  FOR  THE 
SPECIFIED  FUEL 


COMPUTE  TVP  FOR 
THE  SPECIFIED  FUEL 


COMPUTE  BREATHING 
LOSS  AND  WORKING  LOSS 


COMPUTE  FRC  USING  THE 
TIMPORAL  DISTRIBUTION 
ARRAYS  FOR  FUEL 
HANDLING  ACTIVITY 


MULTIPLY  WORKING  LOSS  BY 
FRC,  COMBINE  WITH  HOURLY 
BREATHING  LOSS,  CONVERT 
TO  MI CRQGRAMS/ SECOND 
AND  STORIi  RESULTS  IN 
ARRAY  FOR  SOURCE  N 


FILL  ARRAY  WITH 
PROPER  GEOMETRY 
DATA  FOR  SOURCE  N 


END  LOOP  ON  SOURCES 


RETURN 


SUFPCETINE  1ET  Hr  (rAXN  ,AFHAY,  II,  12) 

THIS  ROUTINE  lALCOLATES  DIUPNAL  EMISSIONS  USING  THE 
IFMPCFAL  CISTF IBHTION  ARRAYS  FCR  FUEL  HANDLING  ACTIVITIES 

CCMMc N /SPCE/  Nil  IS , NE  NPT , NFNAn, NENLN, N ABP1 , NABAP , NA8LN, 

. NACPT,NAl  AR,NA  - 1 N , ENi  T (16,  ICO)  ,ENAR  (1  1 , IOC)  ,ENLN  (14,,:G)  , 

AT  FI  (1b,  ISC)  , A BAR ( 11 , 100)  , A BLN  (It,  100) 
COMMCN/JUNK/DA Y3, LSFCF ,N  : FCK , SCIhCE  ( 1 7 , 300)  , SORGM ( 1 0, 2 00) 

. , ICC  1 ,ICC2 , NGECM,  t FT 
CCBKCS/FE  FIL’D/  ' M ’NTH,  NOE  AYS,  I DAY,  IHfil,  IHF2 
COMMCN/MET/WS,  WSMPH,  l HS,Wt  , T W 0 , 5 L N.  J , COS  «’ 0 , 

J3TAE,HLII),TEMF,?EMK 

CCMMCN  / DEFALT  / I TA F E , ACLN D Y , ACL NDZ , AL FH A (7 ) , B ST A ( 7)  , FLEE  NS ( 7) 
CCMMCN  /DPT  EFT/  At  MO ( 13,8)  , ACEY  (2 , d)  , ACh R (2 4,  8)  , V HM LMO  ( 1 3)  , 

. VfiKlLY  (<I)  , VHMLHF  (24)  ,CV»BMO(  13)  , C V A h D Y (2)  , CVABHR  (24)  .CVENMO  (1  3)  , 

. CVENLY  (2)  , VI  N '3  F (24)  , Ft  MO  (1  3, 7)  , FLU  Y U , 7 ) , FLH  n (24 , 7 ) , NC 1 

CCMMCK/MCNMET/  TMDAP 
DIMENSION  ARRAY ( : 1,12) 

LSFCF  -•  NSPC.  * 1 

NSFLF-NSFiCF+MAXN 

NhI-IHR2 

IF (IP.F1.GT. IHF2)  NH I- ~4+ IHR2 
HFS*  N HI- 1 HR  1 ♦ 1 
DC  3C  N = ISPCE, NSFc  F 
FIHCCf =0. 

ILF"-:  F C E ( 1 4 , H ) 

I’C  1C  I = IKR1,Hi! 

11=  I 

IF  ( I . i • T . 2 4 ) 1 1 - I - 2 4 

LHC  UF  " FI.  HR  Cl,  IDF)  +FLHOUR 
10  cr Nil  MIL 

• I HC(1F  = F LHC OR/I1  SS 

IVF=  F X F (A  I PH  A (IDF)  -!<E:A(IDF)/<‘j.*(TMHAF-3*.)/7.+273.)  ) 

FUC  SS  = £CFCk  (1  3 , N)  *(TVF/(1U.7-TVP))  **C.b9 
V FK  LCS=  SO  PC F (12,N)  *7VF 

F F C FLMO  ( I M 0 N T ti  , I D F ) + FLDY  ( IDA  Y , IDF)  * F LHOUR*  (7. /DAYS) 

AFP  AY  (1*,S)  ( t F I . 3 / ( -r,S.*24.)  ♦ .;»  KL‘<S  ♦ F hC ) * 1 . L + b/3.  b 

IF  {111. EC. 1)  ARRAY  (10 , N)  -SC PCI  (2, N) 

IF  (NGECM .50*0)  GO  TO  3) 

DC  ^ C 1-1  , N G EC  " 

AF  F A Y (I  , N)  SCFCr  (I  ♦ 2,  N) 

C.  CONTINUE 
3 0 CC  Nil NOE 
HFTDFN 
END 


METHD000 
MF.THDOO  1 
METHD0C2 
METHD003 
MFTHD004 
METHD005 
METHD006 
METHD007 
METHD008 
MF.THD009 
METHD010 
METHD01  1 
METHOD  1 2 
METHOD  1 3 
MFTHD014 
NFTHDCI 5 
MFTHDOlb 
ME  THD  01 7 
METHOD  1b 
METHD019 
MFTHO020 
METHD021 
METHP022 
ME^Hr023 
MET K 0024 
METHr025 
METH0026 
METH0027 
M FT  HDD  28 
ME  THP029 
"FT H 0030 
METHOD  1 1 
METH0032 
METHr033 
METHOD  34 
METH.D035 
METHOD  36 
METHD037 
MFTHr0  38 
MF.THD039 
ME  THD  J4 C 
MFTHDD4  1 
ME  THD042 
METHD04  3 
ME  THD  D4  4 
M ET  HOC  4 r, 
METHOD 4b 
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SUBROUTINE  METRE 

Purpose : 

To  calculate  diumal  emissions  using  the  temporal  distribution 
arrays  for  vehicle  activities. 


Input : 


Output : 


The  array  specified  in  the  calling  sequence  to  the  subroutine 
is  filLed  with  the  computed  emission  data. 


Subroutines 

Called: 


None 


139 


COMPUTE  AVERAGE  ! 
HOURLY  VEHICLE 
ACTIVITY 


BEGIN  lOOP  OVER  N 
SOURCES 


1 'ULTIPLY  ALL  POLLUTANT 
EMISSIONS  FOR  SOURCE  N 
BY  FRC  AND  STORE 
RESULTS  IN  ARRAY 


NGEOM 


FILL  ARRAY  WITH 
PROPER  GEOMETRY 
! DATA  FOR  SOURCE  N 


END  LOOP  ON  SOURCE 


SUBROUTINE  MET  HE  ( M A X N , APR  AY,  AR MG,  ARDY  , ARHh,  1 1,  Ii| 

C 

C THIS  ROUTINE  CALCULATES  DIURNAL  EMISSIONS  USING  1 HE 

C TEMPORAL  LISTRIBUTION  ARRAYS  FOR  VEHICLE  ACTIVITES 

C 

CCMMCN  /SRCE/  M PLTS , N E NPT , NE N A R , N EN LN , N ABPI , N Ad AR , N A B L N , 

. NACFT,NACAR,NaCLN, ENFT  (1 6,100)  ,ENAR (11 , 100)  ,ENLN (14, 20) , 
ABPT  (16,  150 1 , AfiAR  ( 1 1,  100)  , ABLN  ( 14,  100) 
CCMMCN/JUNK/DA  ' 5, L S RC E , N S RCF , SORC E ( 17,300)  , SGR5K ( 1 0 , lOG) 

. , LCC  1 ,ICC  2 , NGECM, ITT 

CCMMC N/FEPICD/I MONTH, NO DAYS, ID  AY , I HE  1, IHR2 
DIMENSION  ARMO  [ 13)  , ARDY  (2)  , AR  HH  ( 24)  , A R HAY  (11 , 1 2) 
LSRCE=NSRCE+1 
NSFCE  = NSRCE  + MA.XN 
A RHCU  R = 0 . 

NHI=IHF2 

IF  (IHR1  .GT.  IHR7)  NH1=24+IHR2 

HRS=NHI-IHR1+i 

DC  1C  I=IHR1,NHI 

II=I 

IE  (I.GT.24)  11=1-24 

ARHCUR=ARHOUR+ ARHP (I  I) 

10  CONTINUE 

A R HOUR  = AR  110  UR/HRS 

F RC  = A R MC  (I  MONTH) * AR  CY  ( IDA Y ) * A R HOU  ?* ( 7 . /LAYS ) * ( 1 F + 6/3 . b) 

C 

DC  40  N=LSRCE, NSRCE 
DC  2 C 1=  1 , N FLT  5 

ARRAY  ( I + L OC 1 , N ' =SORCr  (I  + LCC2, N ) * FRO 
20  CONTINUE 

IE  (NGECM. EQ.O  GO  TO  40 
DC  30  1=1  ,NGEO,l 
30  ARRAY  (I, N) =SORCE (I +2, N) 

40  CONTINUE 
RETUFN 
END 


ME THE 000 
MET  HEOO  1 
METHE002 
METHE003 
MET  HEOO  4 
METHF005 
METHE006 
ME THE  00 7 
MET HEOO 8 
r-’H?’'’') 
METHE01  0 
M FT  HE  0 1 1 
METHEO  1 ^ 
METHF01 3 
METHEO  14 
METHEO 1 5 
METHEO 16 
METHS017 
M FT  HE  0 1 8 
METHF019 
ME  THE  02  0 
METHEO 21 
METHF022 
METHEC2  i 
METHF024 
METHEO  2 S 
METHEU26 
METHEO 2T 
METHE028 
METHEC24 
METHEO  30 
METHEO  3 1 
M FT  HFO  3 2 
METHE03J 
ME  THE  0 34 
METHEO 3E 
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SUBROUTINE  OUTPUT 


Purpose: 

To  print  the  pollutant  concentrations  at  all  receptors  for  the 
environ,  airbase,  aircraft  and  total  combined  sources. 


Input : 


Output : 


1.  Title  information. 

2.  The  RECEP  and  RECDAT  arrays  containing  receptor  and  concen- 
tration data. 


Printed  concentration  data. 


Subrout i nes 
Called: 


None 
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subroutini:  mrmri 


1S1  = MINIS ,NP) 


[ I.VT  = 57 




K. ill  IN'  RliCm'OR  uwr  ) 

y 


FRITH  CONCENTRATION  ! 

DATA  TOR  mis  ITYPF.  h* 

.AND  RECEPTOR 


IS  \ 

this  \ 

nu  3RD  Vj.  VI  s WRITE  LINT: 


KHUTOR 
I. INI; 


UNDERSCORE 


END  RECEPTOR  LOOP 


A 

Osi>^ 

j. 

( liND  rrypi  ioop'\ 


._*j  IS  = ISl  ♦ 1 
" ISl  * NP 


r is  = > 

IS1  = MLN(S,NP) 

— 


LNCT  =37 


BEGIN  RECEPTOR  LOOP  ,' 


IA'CT 


>3 


WRITE  TITLE 
rNPOkHMiox 


iA'cr  = i 

1 

i 

FOR  POLLUTANT  IS  TO 
IS1 , SUM  THE  THREE 
TYPES  OF  CONCENTRATION 
DATA  AND  WRITE  Till-. 
TOTALS  FOR  THIS  RECEPTOR 


! LNCT  = LNCT  + 1 


? 

END  RECEPTOR  LOOP  ' 


r 


’ 

IS1 

fsv 

RETURN 


<LNP 


WRITE  LINi: 
UNDERSCOR1 


wTlS  = IS1  + 1 
, ISI  = NP 
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SUBROUTINE  OUTPUT 
C 

C THIS  ROUTINE  PRINTS  THE  POLLUTANT  CONCENTRATION  AT  ALL 
C RECEPTORS  FOR  THE  ENVIRON,  AIRBASE,  AIRCRAFT  AND  TOTAL 
C CCMEI NED  SOURCES. 

C 

P£AL*8  FCLNAM 
R E A L*8  SCRN  AM  ( 4 ) 

COMMON  /AIRQAL/  R EC  DA  T (3 , 6,312) 

COMMON  /PERIOD/  I M 0 NT H , NO D AY S , I D A V , I HR  1 , I HR2 
COMMON  /RCPT/  N R EC E? , R ECE P ( 2 , 3 1 2 ) 

COMMON  /TITL/  POLNAM  ( 6)  , T ITL E 1 ( 2 0)  , I PCHOS ( 6),NXP0L,NP 
DIMENSION  N N M ( 1 3)  ,NNHR(25)  ,NND(2) 

DATA  SCRNAM/7HENVIRON .7HAIRPORT, 8HAIRCRAFT, 5HTOTAL  / 

DATA  NNHR/4H0000,4h01O0,4H020C,4H030O,4H04C0,4H0500,4H06 
. 4H070C,4H0800, 4H0900, 4H1000,4H1100,4H1200,4H1300,4Hl400,4H1500, 
•4H160C,4H1700,  4 H 1 8 0 0 , 4H 1 90 0, 4 H2 000, 4 H2 100 , 4 H2200, 4H 2 3 00, 4H2«  2 0/, 
. NND  /4HDAY  , 4H  END  /, 

. N N M/4  H J AN  , 4 H FEB  , 4 H M AR  ,4HAPR  , 4H  M A Y ,4HJUN  ,4HJUL  , 

4HAUG  , 4HS  E P ,4H0CT  ,4HN0V  ,4HDEC  , 4H  Y EAR/ 

DO  IOC  IT YP  E=  1 , 3 
IS=1 

IS  1 = MI  NO  (5, NP) 

110  L NCT  = 37 

DO  120  IRECEP=1 ,NRECEP 
IE  (LNCT.LT.37)  GO  TO  121 

WRITE  (6,220) TITLE1 , NNM  (IMONTH)  , N N HR ( I HR  1 1 , N N HR (IH R 24  1 ) , NND (I  DAY) 
WRITE  (6, 200)  SORNAM  (I TYPE)  , ( POLNA M ( I PCHOS  (J) ) , J=IS, IS  1) 

WFITE  (6,260) 

LNCT=  1 

121  WRITE  (6,210)  IRECEP,  (R ECEP  ( J , I R EC E P)  , 0= 1 , 2 ) , 

. (RECD A T (IT Y P E , I PCHOS ( K ), IRECEP), K =IS,IS1) 

LNCT-1NCT+1 

IF  (MCL  (IRECEP, 3) .EC. 0) WRITE (6, 260) 

1^0  CONTINUE 

IF  (IS1.EC.NP)  GO  TO  100 
IS=IS  1 + 1 
I S 1 = N E 
GC  TO  110 
100  CONTINUE 
IS=1 

IS1 =HI NO (5 , NP) 

125  L NC T = 37 

DC  13C  IREC  EP=1,NRE'CEP 
IF  (L  NCT  . LT  . 37)  GO  TO  133 

WRITE  (6,220) TITLE1 , NNM  (IMONTH)  , NNHR(IHRI)  , N NHR  (IH«2+ 1 ) ,NND  (IDAY) 
WRITE  (6,200)  SORNAM  ( 4 ) , (POLN A M ( IPCHOS  (J ) ) , J=I S , I S 1 ) 

WRITE  (6,260) 

LNCT= 1 

133  CONTINUE 

DO  131  J=IS,IS1 
DC  131  K=  2, 3 

131  RECD AT  (1 , IPCHOS  (J)  , IP  ECEP ) =R EC DAT ( 1 , 1 PCHOS ( J ) , I R EC EP)  < 

. RECCAT  (K,IFCHOS(J)  ,IRECEF) 

WRITE  (6,210)  IRECEP,  (P  ECEP  ( J, T RECEP)  , J = 1 , 2 ) , 

. (RECDAT  ( 1 , IPCHOS (K  ) , IR EC EP)  , K= I S, I S 1 ) 

L NCT  = l NCT+ 1 

IF(MCC(IRECEP,3).EC.0)WRITE(6,260) 

130  CONTINUE 

IF  (IS1  . EQ.  NP)  GO  TO  140 

IS=ISl4l 

IS  1 = NE 


OUTPT000 
OUT  PTOO  1 
OUTPT002 
OUT  PTOO  3 
OUT PTOO  4 
OUTPT005 
OUTPT006 
OUT  PTO  07 
OUT  PTOO  3 
O0TPT009 
OUTPTOIO 
OUT  PT0 1 1 
CUT PTO 12 
OUTPTO 1 3 
OUTPT0 1 4 
OUTPT015 
OUTPTO  16 
OUTPT01T 
OUT  PT  018 
OUTPT019 
OUTPT020 
OUTPTO  2 1 
OUTPT022 
OUTPTO  L 3 
CUTPT024 
OUTPT025 
OUTPT026 
OUTPTU27 
OUTPT028 
OUTPT029 
OUTPTO  30 
OUT  PTO  3 1 
OUTPT032 
0UTPT033 
OUTPT03'-' 
OUTPTO  3 c 
OUTPTO  36 
OUTPTO  37 
OUTPT038 
qm  T P^  0 3 9 
OUTPT040 
OUTPT04 1 
OUTPTO  4 2 
OUTPT‘4  3 
OUTPT044 
0UTPT045 
OUT  PTO  4 6 
OUTPT047 
OU  T PT  04  8 
OUTPT049 
OUTPT050 
OUTPT05 1 
OUTPT052 
OnTPTOS  3 
OUTPTOSa 
OUT PTO 55 
OUT PTO 56 
OUTPT057 
OUTPT058 
OUT  PT05  9 
OUT  PT060 
OI1TPT06  1 
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GC  10  125  OOTPT062 

140  CONTINUE  OUTPT063 

200  FORMAT  (1H0, 96  (1  H-) /2H  1 , 22X , 3 3 HR  ECEPTOR  CONCENTRATION  DATA  FROM  , OUTPT064 
. A6.8H  SOURCES, 23X,  1HI/2H  1 , 94  < 1 H -)  , 1 HI/  OUTPT065 

. 37H  I RECEPTOR  I RFCEPTOP  LOCATION  I , 1 7X , 24 H EX P ECTED  A R ITH ME TOU T PT06 6 


IC  MEAN,  18X,  1RI/13H  ! NUMBER  1 , 2 3 X , 1 H 1 , 59 X , 1 HI/ 
. 2H  1 , 10  ( 1H-)  , 1HI , 23  ( 1H-)  , 1HI ,59  ( 1H-)  , 1HI/ 


OUT  PT067 
OUTPT068 


. 2H  1 , 1 CX , 1HT,5X , 12H (KILOMETERS)  , 6X , 1HI , 18X ,22H (MICROGR.  MS/CU.  METOUTPT06  9 
. EF)  , 1 9X , 1 HI ,/2H  I, 10X  ,1HI ,5X, 1HX,5X, 1HI,5X.  1HY,  OUTPT07C 

. 5X , 4 (3H I ,A0,1X),3HI  ,A8,2H  I)  OUTPTO"  1 

^10  FCFMAT  ( 2 H I,I6,uX,2(1HI,F9.3,2X)  , 1HI,5(1PE10.3,2H  I))  OUTPT072 

220  FORMAT  (1H1 , 3X, 2 JA4/10 H MONTH  = ,A4,l2H  PERIOD  = ,A4,4H  TO  , OUTPT073 
. A4.16H  HOURS  ON  A «iEFK,A4)  OUTPT074 

2*-  0 FORMAT  (2HI,  10  (1H-)  , 1HI,7  (1  1 (1H-)  , 1HI)  ) OUTPT075 

RETURN  OUTPT076 

END  OUTPT077 


* 
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SUBROUTINE  PLRISE 


Purpose : 

To  calculate  the  effective  height  and  the  vertical  and  horizon- 
tal dispersion  coefficients  for  a given  stack. 


Input : 

The  stack  parameters  and  current  meteorological  conditions. 

Output : 

1.  The  effective  height,  h 

2.  The  vertical  and  horizontal  dispersion  coefficients, 

a and  a 
yo  zo 

3.  KSTAB,  a flag  used  in  the  TRAN  function 

= 0,  the  modified  stack  height  is  below  the  lid 

= 1,  the  modified  stack  height  is  initially  above 
the  lid 

= 2,  the  plume  will  penetrate  the  lid. 


Procedure : 

1.  For  point  sources  having  no  plume  rise: 
heff  = max  (Zg,  Hg,  AZ/2.) 

c = AY/2.4 

yo 

a = AZ/2. 4 

zo 

KSTAB  = 0 or  1 


For  point  sources  which  may  undergo  plume  rise: 

a.  Estimate  the  wind  speed  at  the  top  of  the  aerovane 

b.  Modify  the  stack  height  by  the  effect  of  the  stack 
downwash 

c.  Test  for  building  downwash  effects.  If  downwash  occurs: 


heff  = HB  + ,5LB 

o =a  = h ,.r/l . 2 
yo  zo  ei  f 

KSTAB  = 0 or  1 

d.  Test  to  determine  if  the  buoyant  plume  rise  is  significant. 


e.  Check  for  an  inversion 

f.  Compute  the  plume  rise  using  function  RISE 

g.  If  no  downwash  occurs: 

H ^ = Zs  + - 1.5  j -DS  + plume  rise 

o - a ' 

a = AY/2  4 

yo  ' 

a = Ll/2.4 

zo 

KSTAB  = 1 or  2 

Functions 

Called: 

RISE 


SUBROUTINE  PLRISE 


PRFLAG 


KSTAB=0 


J =JSTAB 


WZ=1 

ZL=MIN(ZS , 304 . 8) 


<I1TAER0 


UA=MAX(WS-W 


r 

llfl.FF=MAX 

(ZS,HB,DELZ/2)I 

-►Chei-fV^ 

[ KSTAB= 1 

L i 

NY^hi  rn 

n r, 


* 


Slip  CC  UT  IMF  F-LF  ’ GE  (HFFF,  KST/>;  , S I'W.  IN,  SIGYI  N) 

C 

THIS  SUPF-CU"  I NF  CALCULATES  THF  r F F ZCT I V L HEIGHT  AND  THE 
C VERTICAL  ANT  H0FIZ1NTA1  DISF^PSTON  COEFFICIENTS 
C F OF  A GIVEN  3IACK 
C 

P F A L L P 

CCHSCH  /I  FT/  • S,  "MPH  ,r-'S  ,0,  I NT  , S I NE V>  D , COS E'N D,  JSTT  3,  HL ID , 7 EMF , 
. TF«K,UA 

COMMON  /’  NEO/  I - CE”,  IV.-NTIR,  TTYPE.HTA  '■•FO,  XS,  YS  ,ZS,  DELY,DELZ, 

. TS,  VS,DS,II;-,PFFLAG,  HMIC  ( l<)  , NPOL 
COMMON  /VNDLH  / <P(M 
IF  ( i'  f FLAG  . NE.O)  50  TO  1^0 
C 

C EOF  AN  A PE  A s 0 II  I-  C F X’l'H  A DIAMETER  Of  l ESS  THAN  PC  .MSTF5S 
C THF  EFFECTIVE  ‘FISSION  HEIGHT  TS  SET  10  THE  MAXIMUM  OF 
C Z,  T u F BUILTING  HEIGHT  CR  DELTA  Z/2.0 

C 

HEFF  r A M A .<  1 (ZS,H'*,DELl’/2.) 

SO  K S I A B =0 

IF  (HEFF . GF . HI  ID)  KFI  AB  1 
GC  TO  200 
C 

ICO  CCNTIN’lp 
H F r --  Z S 

IF  (l  : FI  AG.  EC.  M ;o  r0  1 or 

c 

F IFS1  ’ESI  FOR  I OVNKASH,  THF  N CPMt’JTE  PLUME  hISl,  IF  ANY 

C FGF  TALI  STACKS  IMF.  STABILITY  4 IN  THF  UNO  l HOF  I L F LAX 
C 

J = .IST  AF 

IF  (ZS.GT.6D.  . AND.  J.LE.  3)  J= 4 
l 

c COMPUTE  THF  VIHDSDFFr  AT  "HE  El EVATION  Cr  THE  STACK 
C 

V 2 = 1 . 0 

ZL  A MINI  (ZS  , 3(  4 . H\ 

’F  (ZL.G".HTAF  FO)  VZ-  (ZI./HTArFO)  ♦♦XP(J) 

UA-AMAX1  ( V h » w ; , H 

c 

C C(MF"TE  STACK  Dl.WNVASH 
C 

m ; is*..  * tv  /’)  a - 1 . i)  *rs 

LP=  HP 

C 

C B *1 1 L D I KG  DOVN  ASH  TrSTS 

C 

IF  (LP  . LF . 1 . ) GO  ~0  110 

IF  (HI  .C- - . (r!  n*  1 . c.*Lt>)  ) GO  TO  1 1 q 

KFP=HF-1.S*LB 

I?  (Hr.G~.HP)  l.  *HP-  (HP*  1 . S«  IP) 

IF  ( 'I  r . T . (L ) GO  TC  110 
C 

BUILDING  I V N V A ‘ ’’  :C'1c  S 

c 

HEFF=Hr*o.5*LP 
SIGZI N=HEEF/1 . - 

STGYINrSIG7,*N 
K S T A H - 0 

IF  (HEFF. GE . HI  I D)  *3  TAB  1 
p F T P P N 


P! P o 
PLHSl'TOI 
FI PSEOO  2 
PI F PECO  3 
riF s^oou 
riFS',005 
”Lf 

nI P SEDO  ^ 
pcps^Ooh 

r T_  TJ  p p p p q 

PI  4 S '■1 1 0 
rL  E E c-0  1 1 
PLP  Gi’O  1 2 

fpcoxp 

PL°SE°15 
PI. PS  P1 16 
P!  p 1 1 

pi  ^niij 

PL  P sp  i 14 
PI  PGSOiO 
PL  P SEO  > 1 
&I RSE022 
?HSI','23 
PL  ? p'r024 

PI  p pp p 2<i 

iLc<;E02H 
PLPSE027 
PI PSF02H 
rLPGF029 

pr  p c pp  qp 

H 3 S po  3 1 
o L P, p 0 3 2 
pi  p p i 3 
FL  c SFO  34 

PI  i>  q p p It, 
PI  p ppn  if, 

n.pspo  3"> 
FL  p s po  1 3 

pi  ppn  i q 
PI  r,  cppaA 

PL  ESpOJ  1 
FI  RSP"14  2 
0 L D R F 0 4 -j 
PI  p gp  la  u 

pprpppqt, 

PI. P 5 FI  4 A 
r I p s p * u t 
PI  p 5 pr; 4 fl 

pi  per" u 4 
n I p c,  p A 9,  p 

pi  p ppre i 

?LPCE?S2 

PI  o 9 P r r.  i 
PL  p <-  pr  S4 
PI  9 q PO  9 q 
Fl  H “ F 9 E A 

Pl_'jqppq7 

Fl  P GP0S4 
pi  oppisg 
PLPspoaf 
pi  p p pp  ->  i 
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c 

H 

c 

NC  BUILDING  DO"NVASH,  TEST  F OP  FLUME  PISE 

FI 3FF06  - 

c 

Pt  P^Ooa 

110  HFP=  HF 

F! ^ FF°6 ^ 

IF  (7S.GT.  ( FFMK+2.  ~>3)  ) GO  TO  110 

FI  ? F r 0 6 6 

c 

O’ 

c 

COLD  FLUME 

pt 

c 

f>I  p q 

HEFE  =HPF 

p'L  p q c p "T  •> 

GC  TC  FO 

?L?S- J1 1 

130  CCNT’NOE 

PI  rt  S - 0 7 2 

c 

P’_C^^  • 

c 

PLUMF  PT^E  FXPF.'TFD  TO  PE  SIGNIFICANT 

pT  T>CC*^7u 

c 

CAICI’LATF  MINIMUM  PLUME  PTSF 

P I P S "0  ^ r 

c 

? i ^ ^ *:  o n 

Z SS - H F F 

JJJ  = S 

pooo'np 

DHM1N-RI5F (ZSS, JJJ) 

PT.  ? S *0  TQ 

HEF  = hFP+OF!MIN 

Pl^SPO^F 

c 

prpqrnp«| 

c 

TEST  FOP  INTEPFEPHNCF  OF  LTF  V I T H MODIFIED  PhYSICAL  Sit.  L< 

PX  p c r p p 2 

c 

HFIGhT  AND  rL";'1r 

PT  pqr-^-i 

c 

pT  por^fiu 

IF  (HlTD.GT.iltF'1  GO  TC  230 

pnr?rtqc 

c 

c 

LID  INTERFERES  XITH  STACK  HFIGiiT,  USE  5TAFFL..IY  3 ' ' 1 T H 

T"  t K cro^ 

c 

INFINI7F  FIT  HFTGHT 

rLpqvQQft 

c 

pi 

KSTAB= 1 

PL  F 5 c ’>(3  0 

(IC  TC  22c 

T> I n qrpq  1 

c 

PT  Fe;r''c? 

c 

FID  INTEPtr^^S  VI”:!  PLUMF,  USE  $ D H L 1 1,  TTY  5 XI  Th  INFiNIl  L III 

T’  rofog 

c 

’01  qcr”)^ 

ZcO  T F (HLTD.uF.HFF)  GO  Tn  221 

PT  r c p ^ 9 q 

KST  A£  =2 

nL?  qr 096 

GO  TO  223 

pp  p 

c 

r i r q - o ° ° 

c 

CALCULATE  PLUMF.  RIGS,  PLUMF  CANNOT  FF  NETPATF  THE  LIT 

p ’ o q r p o q 

c 

PT 

.21  K ST  A R ~ 0 

PL3c*ir 1 

TF  (JSTAB.LT.  c)  l!  e p r h F F + A F T N 1 ( D 1 3 F ( Z S S , J S I A.  b)  , ( h L I ..  - :l  F P ) ) 

p X r.  ctpiap 

223  CC NTT  NOE 

p L P f * 1 ^ 3 

HEEE=HFF 

FI  FPr  10  u 

23C  STG7I N=DEFZ/2. 4 

pt_  p c t?  t ° S 

S I GY  I N - PEI  Y / 1. . 4 

PT  ocp  IPfv 

0 FT  0 P N 

PI 

F ND 

p’  Lcvno 

r 


Purpose : 


Input : 


Output: 


Procedure : 


Subroutines 

Called: 


SUBROUTINE  POLUT 

To  calculate  the  pollutant  concentrations  from  point 

and  area  sources. 

1.  Source  parameters  for  the  current  point  or  area. 

2.  Receptor  locations. 

3.  Meteorological  conditions. 

Accumulated  pollutant  concentrations  at  all  receptors  for 

all  stability  classes. 

1.  For  all  stability  classes,  determine  the  plume  rise 
and  wind  speed  at  the  height  of  the  source. 

2 . Calculate  the  downwind  and  crosswind  distances . 

3.  Calculate  the  distance  from  the  virtual  point  source 
to  the  receptor  by  fitting  an  isosceles  triangle  of 
central  angle  22.5°  to  the  source. 

4.  Check  the  position  of  the  receptor  relative  to  the 
source. 

5.  Determine  if  the  receptor  is  inside,  outside,  or 
close  to  the  source. 

6.  For  all  stability  classes,  find  the  critical  distance 
and  determine  the  effect  of  the  lid  height. 

7.  Accumulate  the  concentrations  by  receptor,  pollutant 
and  source  type. 


AREAWT,  PLRISE,  SIGTZ 
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SUBPOUTTN  E POLUT 


THIS  BOUTIN  F CALCULATES  POLLUTANT  CO  NC  E NT  S A TI O NS  FROM  POINT 
AND  ALFA  SOURCES 

LOO I CAL  SGTDMX 

MUON  /ATRQAL/  EEC DAT  (3,  6,312) 

•'OMMON  / A N N ,1 HT / TB  AR  , A DD , P A , P A X , W SB  AR , DTB  AR 

COMMON  /CONS/  PT4,PI8,PI16,KPh,ArfXHT(b,b)  , AX  Ch  I T (0,6) 

COMMON  /T NFO/  IEECEP, I N NU L A , I T YPE , H TA EfiO , XS , YS , ZS , C EL Y , 0 ELZ , 

. TS , VS  »U  ' . HI  , PR FLAG, EM IS  (3)  , N PuL 
COMMON  /M  FT/  IS . WSM PH , I KS , N D, I ■ D , S I N END, CO SE W D , J BTA 6 , HLID.TEMF, 
. TFMK.UA 

CM  MON  /MS TSET/  W ND F Ru  (b , 1 fa , b ) , U U ( o ) , S I N W D ( 1 6)  , CO S W D ( 1 6) 

COMMON  /MON  MET/  T Mb  A 8 , W SMB  AR , D PTH  M K , DMX 
COMMON  /."PT/  N H ECE P , R 3C E P ( 2,  312) 

COMMON  '«  ‘.op;  3/  XP  (6) 

COMMON  / iTAT/  NSTAPF., NESTAT, RSTAT (2 ,20)  ,i RSTAT  (3  12) 

DIMENSION  PI.F  (6)  ,UB  (b) 

SPAD-DEI Y/2 . 

PEILAO  LESS  r«A:l  0.0  INDICATES  AN  AREA  SOURCE 

; F (peft An.ot.o  .0)  ;o  to  2 

DO  1 JST'1,1 
PLE  (.1ST)  . */.c' 

1 lit?  (JfaT)  MI'I  ( I NS) 

OC  TO  4 

2 DO  1 J ST  A ^ = 1 , • ■ 

!IA  = U!J  (IKS) 

HEFF-7S 

HI  ID-AMXUT  (TV,,  J ST  A b) 

CAI  1 PI  2 I "■  f (HI  FI  , KSTAfa  , SIGiUN  , S1GYI  N) 

TF  (HE  IF  . ST.  I*  ; AERO)  IJ  A = UU  ( T WS ) * ( H SFF/HT  A SKO?  **  XP  (J  ST  A fa) 

Lf  (JSTAfal  - II  A 
I "I  R (.1ST  A T ) = ULr  F 

4 continue 

BEGIN  BECFpTon  mo? 

DO  700  IFbCV  I.NkELEP 
COEF  =!'."> 

X8=RECEP(1, IF-  EP) 

YF-EECEP  (>.  I F EC  DP) 

IMPUTE  DOW N K I N 1 AND  CBOSSWIND  DISTANCES  AND  CHECK 
POSITION  OF  H Ft  PTOR  RELATIVE  TO  SOURCE 

DhP- 100U. ♦ ( (YS-YR) *COSFWD+  (XS-Xh) *SINEWD) 

X PWP+PELY/PTO 

( D T T Y . T . 7 < 1 0 . ) SO  TO  1 1 0 
• . . ' . 0 O.I  TO  700 

• r * • A I N > . . ) GO  TO  700 

W!  1 * A ( (YI-YH)  *UINEWD-  (XS-XE) *COSEWD) 

Y=X*P!H 

IF  (Y.LK.'"Nti)  SO  TO  7 00 
IF  (SRAM. ST. ADS  (DND)  ) GO  TO  1 J 0 
IF  (LF  I v . LE.  :'N0*PIfa)  GO  TO  140 

PEC  F FT oh  I • OUT  I0t  BUT  CLOSE  To  SOURCE 


POLUTOQO 
POLUT001 
POLUT002 
POLUTOO  3 
POLUT004 
POL’JTOO  5 
POLUT006 
POLUT007 
PCLUT008 
POL0T009 
POL  JTO 1 0 
POIUTOI 1 
POLL  T 0 1 2 
POLUTOI 3 
POLUTOI  4 
POLUTOI B 
POLUTOI fc 
POLUTOI 7 
POL’JTOI  8 
POLUTOI 9 
POLUT020 
POLUT02  1 
POLUT022 
PO  L UT02 1 
POLUT024 
POLUT025 
POL UTO 2 6 
POLUT027 
POLUT028 
POLUT029 
PDLUT030 
POLUT03  1 
POL  UTO  3 2 
POLUT03  3 
POL  UT  0 3 4 
POL  UTO  3 B 
POL  UTO. 3 8 
POLIJT0  3 7 
PO  L UT  0 38 
PGLUT039 
POI  UT  04  0 
POLUT04  1 
POL UTO 4 2 
POI, UTO 4 3 
PO  L UT  04  4 
P0LUT04B 
POLUTOI*  6 
POLUT04 7 
POLUT048 
P0LUT049 
POLUT0S0 
POLUTOb 1 
POI.IIT052 
POLUTOB  3 
POLUT0B4 
POLUTOBB 
POI UTOBb 
POLUT  OB  7 
PCI  I1T0B  8 
PCI.UTOB  9 
POLUT06  0 
POLUT  06  1 


C = ( Y - DEI.  V ) /'IK!  Y 

POLUT06  2 

’Wf  SC:-"  (!)•»’:•*»  > *SRAD**2) 

P0LUT06  3 

X = 2 . * 3 w r 

POL  UT064 

i?'  (f'WD-  ( RAD+Y)  ) 1 S'),  1 SO,  700 

POLUT06S 

C RECEPTOR  1 S INSIDE  SOURCE 

P0LUT066 

POLUT067 

■•0  (,  F ! 4*  ( (fVT)  + -i  A P)  / (4  * SRAD)  ) **2 

POLUT06  8 
POLUTOS  9 

I)*'  -'  / ! 1*  ( D + ShAD) 

POLUT07 0 

X Li  * ? . 

POLUT07 1 

IK  ( *D-C'  n ISO, 700, 700 

POLUT07  2 

POLUT07  3 

C EECFPTOR  • 0 > : .]''!■  AND  KAR  FROM  SOURCE 

P0LUTU7U 

c 

POLUT07S 

1 14  0 0=1. 

POLUT076 

c 

POLUT07  7 

• ’ n ~ a ? WE  . ;htin«;  factor 

POLUT07  8 

c 

1 t' 0 CWD=(Y-C4D)  n 

POLUT079 

POLUT080 

T r (Y . IT  . 1 "O  . ) X = 10'), 

POLUT08 1 

c 

POL  UT 08  2 

C • KOIN  IT  A"1 ' LT^Y  > L.  ‘ IS  LOOK 

P0LUT083 

c 

POL1JT084 

00  SSO  c-1,ti 

ooLuroes 

IK  (WNDFi  ')  (IKS  , W NDIH,  L)  . EO.  0.  0)  GO  TO  SSO 

POLUT086 

SL I D - AM  Y HT  ( ! W ,1) 

POL  UT 08  7 

HEFF-pLR  (T ) 

PO  L UT  08  8 

If  ( 3 F.FF  . ST  . HL  i O'  LU  TO  SSO 

PO  L UT  08  9 

IF  (L'WD.  !.m.  V . ) >WO=190. 

POLUT090 

C 

POL  UT  09  1 

COMPOTE  T " ■ V )■•-  ! DISPERSION  COEFFICIENT 

POL  UT  09  2 

c 

P0LUT09  3 

Sr'2‘  CAL'  ST  ( I. , D W D , : ■ 1 1; 7. ) 

P0LUT094 

APS  1 = . S*  (HE  r/S  107.)  * *2 

POLUT09S 

II  (ARC1  . '.)  so  -n  SSO 

POLUT09S 

S6TDWX=.TPn r. . 

PO  L UT  09  7 

IF  ( S I . T.  T . ' . 4 7 * ilL  I D ) 00  TO  SS27 

POL UT 09 8 

SS2S  X 1 = A v L 3T  i ( : w ; , L) 

POL  ' ) 

X2  = ? . *X  1 

PO  LUT 1 00 

X DO  ' • A M ' N 1 t . tf  2,  y '♦DELY/PI  8) 

POLUT101 

T F ( x . of:,  r no)  so  "•■j  5531 

POLUT102 

S GT P M X = . f AL  " E . 

POLUT  103 

X! - XDU 

POLUT  104 

. A!  RAW  ■ YD,  X 1 , " ! Y , 0 K A J , P I H) 

POLUT10S 

CO  vn  v 1 > 

POLUT 1 06 

C 

P0LUT1 07 

■ 'i  rr  ( : ■*  * ' x i (J  ; ASSUMED 

POLUT 108 

POLUT 109 

S S ■*  1 V rt  - Y 

PO  LUT 1 10 

S • ■ . / ( • ! ! ' ’ * * X r'  * " ( 1 ) * i>  X -1 ) 

PO  LUT  1 1 1 

* - ( . ‘ > T.  ■•n^ny  V } -f)  t ( , S*S  \ ? 

POLUT 11 2 

C }“C,! 

POLUT  1 1 1 

r;f  TO  SOTO 

POLUT  1 1 4 

1 ■ >■  I'S  A 1 : ' 1 ( . . * v 1 , ; 1 + DEEY/PI  r>) 

POL 'IT  11  S 

y r Y *V; 

POLUT  1 1 b 

.-•It  7.- 0,4  7 * it  ; 1 , 

PO  L UT  1 1 7 

«r  1,  1 . * < t; p !' r-  ,s  l.  ) «•  l 

POLUT  1 1 8 

. K !■  AW  - f \ , X 1 , Of  Y,SRAD,  PIS) 

POLUT  1 1 9 

00  TO  Mil 

POL  UT 1 2 0 

SS,'7  X D = X 

POLUT  12  1 

<«  Cl  • ■ . o M 7 • r (UU  (L)  *SI07*X  D)  *EXP  (-ARG1) 

POT.  UT12  2 

1 1 ( . Nl  T . ; STD MX)  GO  TO  SSSS 

PO  L UT  1 2 3 

rr! 

LJ) 


\l 


JLE  copy 
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n n 


C 1 = C1 

00  TO  600  <> 

r NT  F.K  POLAT  F BF.~  ; r'.£N  01  A'"  X 00  AN  0 02  AT  X OU 
5555  CONTINUE 

C3=C1-  ( (X-X5  :)/  (XDU-XDG)  ) ♦ (C1-C2) 

6000  CONTINUE 

c 

0 ATP1.Y  WNDfPo  an:  LINEAR  «' 5 I G tiT  I N v.  F A‘'TU.<S 

c 

CO  r.  r = CC  EE  + C - * 1 N u FR  j ( I U S , T W WO  1 n , L)  * 0 W 0 

c 

IF  (IESTAT  (1  :■  ! ort’)  . Jy.  0)  GO  TO  500 

C If  STATIST  7CAL  OPTION  IF  CHOSEN  RECORD  COUPLING 
C COEFFICIENT  DO?  TO  THIS  WIND  DIRECTION,  SPEED  AND 
C STABILITY  CT,»5E  ON  NSTAPE 
C 

C3  = C 1*CWD 

IF  (C  I.HO.O.P)  GO  •"()  550 

WFITF.  (N  Si  A P F.'  1NNDIR,HD,I»S,W3,ITYPE,(ENIS(K),K-1,  NPOL)  , 
. 1RSTAT  ( T EC  F ’)  , I ,C  I,  HLID 
550  CONTINUE 
600  CONTINUE 

C 

C A D n EMISSIONS  TIMES  COUPLING  COEFFICIENT  To  CONCENTRATIONS 

r* 

00  bOO  TPOL~  1 , NPOL 

PECDAT  (ITYPF,  IPOI.,  IRECSP)  =E£CDAT  IITYPE,  I POL,  IhFCEP) 

. +COEF*EMTS  (IPOI.l 
800  CONTINUE 
TOO  COUTT  N" E 
RETURN 
END 


POLUT124 
PJLUT12  5 
POL  UT  1 26 
?0  L U T 1 2 7 
po  L U r 1 2 8 
POL  UT  12  9 
POLUT 130 
ROLUT  1 1 1 
P0LUT1  12 
ROL’JTI 1 3 
PO  L UT  1 3 4 
POLUT135 
POLOT  1 36 
P0LUT1 37 
P0LUT138 
P0LUT1 39 
P0I.7T  ICC 
P0LUT1C  1 
PO  L UT  14  2 
POLUT  14  3 
PC  L UT  1 4 4 
PO  L U T 1 4 5 
POLUT  146 
P0LUT147 
POL  UT  1 48 
POL  UT 1 4 9 
POLUT 1 5 0 
POLUT  151 
POL  UT 1 5 2 
POLUT 153 
POLUT 1 54 
PO  L UT 1 5 5 
POLUT 1 56 
POL  UT 1 5 7 
POLUT 158 


10.3 


SUBROUTINE  POLUTI 


ITirpose : 

To  prepare  the  data  required  by  the  line  source  model 
and,  for  each  receptor,  to  call  the  model  for  each 
stability  class  and  then  add  the  pollutant  concentra- 
tions calculated  to  the  accumulated  totals  at  that 
receptor. 

Input : 

1.  Source  parameters  for  the  current  line. 

2.  Wind  speed  and  direction. 

3.  Wind  frequency,  critical  distance  and  mixing 
height  arrays. 

4.  Virtual  horizontal  and  vertical  distances  from  the 
source  to  the  pseudo  upwind  point  source  for  all 
stability  classes. 

Output : 

Accumulated  pollutant  concentrations  at  all  receptors 
for  all  stability  classes. 

Procedure : 

1 . Convert  source  data  to  proper  units . 

2.  Calculate  variables  used  by  the  line  source  model. 

3.  For  each  receptor,  loop  through  all  stability 
classes  and  use  the  three  or  four  point  Gaussian 
quadrature  procedure  to  call  the  line  model  for 
uniform  or  non-uniform  lines. 

4.  Accumulate  the  concentrations  by  receptor,  pollu- 
tant and  source  type. 

Subroutines 

Called: 

QG3,  QG4 , MNE 


104 


SUBROUTINE  POLUTL 


USE  FOUR  POINT 
GAUSSIAN  QUADRATURE 
PROCEDURE  TO  CALL 
THE  LINE  FUNCTION 
AND  FIND  CONAV 


USE  THREE  TO I NT 
GAUSSIAN  QUADRATURI 
PROCEDURE  TO  CALL 
THF;  LINE  FUNCTION 
AND  FIND  CONAV 


COEF  = COEF  + 
CONAV/ (tt/8) 
*WNDFRQ ( IWS , 
IWNDIR.JSTAB) 


/is  \ 

THIS  A 
STATISTICAL 
_ RECEPTOR 


= CONAV/ (tt/8) 
*TIME/TIMEO 


■ 

m 

ZW2  = 

1ILID 

1 

RECALCULATE  DL  AS 
THE.  LENGTH  OF  TI  E 
LINE  UP  TO  HUD 
AND  □ LANGE  VI , 

V2  AND  TIME 

ACCORDINGLY 

END  STABILITY  LOOP 


WRITE  INFORMATION 
ON  STATISTICAL  TAPI 


n o 


c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 


c 

c 

c 


SUBROUTINE  POLUTL 

THIS  ROUTINE  PREPARES  DATA  REQUIRED  BY  THE  LINE  SOURCE 
MODEL  AND  CALLS  THE  MODEL  TO  DETERMINE  CONCENTRATIONS  AT  ALL 
RECEPTORS 

EXTERNAL  A I NE 

COMMON  /ATRQA.L/  PFCDAT(3,  fa, 312) 

COMMON  /INFO/  TfiECEP, I WNDI S , I T Y PE , HTA ERO, X 1 , Y 1 , Z 1 , W , DELZ , X 2 
. VI  ,V2,DL,TTMF, FMIS  (b)  , NPOL 

COMMON  /CONS/  ? 1 4 , P 1 8 , P1 1 6 , KP  R , A M X H T (6, fa)  .AXCRIT  (6, fa) 

COMMON  /LV  XVI , YV1 ,ZV1 ,XW  2, Y*  2,ZW2,SUD0Y, SUD02, I AD, TAIL, A, 

. WS2  , WSC,  PR  , SP,  A A 1 , AA2,  A A3  , AA4  , AA5,  AA6 
COMMON  /« FT/  WS, WSMPH , I WS, WD, I WD,SI NEBD ,COSE K D, JST A B , HLI D , TE  HP 
. TEMK 

COMMON  /MET  SET/  W N DFRQ  (6  , 1 6 ,6  ) , LIU  (6 ) , SI  NW  D ( 1 6 ) ,COSVD  ( IP) 

COMMON  / R C P T / N r ECEP, R ECEP  (2, 3 1 2) 

COMMON  /STAT/  N ST AP E, N RST A T , S ST AT ( 2 , 20) , I BST AT ( 3 1 2) 

COMMON  /XTRAN/  XL 

COMMON  /KDUN/  W S A VE,  SO  DY  (6 ) ,S  U DZ  (6 ) 

CONVERT  SOURCE  DATA  TO  PROPER  UNITS 

TIME  = TIME  * 3600. 

IF  (TIME  .LT.  0.1)  GO  TO  500 
XX1=  XI  * 1000. 

X X2 " X2  * 1000 
Y Y 1 Y 1 * 1000, 

YY2-  Y2  * 1000. 

VI  = VI  / 3.6 
V2  = V2  / 1 . 6 

C A LCU I A TF  VARY  ARLES  USED  BY  THE  LINE  SOURCE  MODEL 

DL  = SQRT( ( X X 2- X ( 1)  **2  + (YY2-YY1)  **2+(i2-Z1)**2) 

N PT=  1 
TAD  = 0 


IF  (VI . LT.  (V.-, 0 1) ) IAD  =2 
T F ( V 1 . GT . (V2*.01))IAD  =1 
IF  (I  AD. NE. 0)  1PT  2 
TIME  = A B S ( ? . * U L/ ( V 1 + V 2)  ) 

A - (V2-V 1)  /TIME 

V S2  = <i  S*  VS 
VL  = WD-PI  Ifa 
VU=WD+PT 1 6 

BEGIN  RECEPTOR  LOOP 

DO  100  IRECEPfa 1 , NRECEP 
CCFF=0.0 

BEGIN  STABILITY  LOOP 
DO  2 00  JS  TA  b-  1 .6 

IF (WNDFRQ (I VS, IWNDIR, JSTAB) -BQ.O) GO 
X I = A XCRI  T (TV’S, JSTAB) 

HLID=AMXHT (IWS, JSTAB) 

S UDO Y - SUD  Y (JSTAB) 

SUD02=SUDZ (JSTAB) 

X1=XX1 
X 2 = XX  2 

Y 1 = Y Y 1 


POLTLOO  0 
POLTL00  1 
POLTLOO  2 
POLTLOO 3 
POLTLOO  4 
POLTL005 
POLTLOO  6 
POLTLOO  7 
, Y2, 32, POLTLOO 8 
P3LTL009 
POL  TL  0 1 C 
V 12, VS, POLTL01  1 
POLTL01 2 
POLTLO  1 3 
POL7L01 4 
POLTL"  1 c 
POLTLO 16 
POLTL 31 7 
POLTLO  1 S 
POLTLO 1 9 
POLTL020 
POLTL02  1 
POLTL 02 2 
POLTLO 2 3 
POLTL 02 4 
POLTL 02  5 
POLTL026 
POLTLO 27 
POLTL028 
POLTL029 
POLTL030 
POLTLO  3 1 
POLTL032 
POLTL03  3 
POL  TLO  34 
POLTL035 
POLTLO  3 6 
pc  LT  LO  3 7 
POI TLO  38 
POL  TLO  3 9 
POLTL04 0 
POLTLC4  1 
POI TL04 2 
POL TLO 4 3 
POLTL044 
POLTLO 4 5 
POLTL04  6 
POLTLO 4 7 
POLTL04 P 
POLTL 04  9 
POLTL05  0 
P0LTL05  1 
POLTL 05  2 
POLTL05  3 

TO  200  POLTL05 4 

POLTL05  5 
POLTL05O 
POLTL05  7 
POLTL05  8 
POLTL059 
POLTLObO 
POLTL06 1 
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Y2=YY2 
Z HI  --  7.  1 
ZW2=Z2 

IF  (Z  1 .LF.  Z2)  GO  TO  IS 
7 VI  Z2 
Z » 2 = Z 1 

1 r H NEG  = TI  * 

I F ( Z V 2 . L E . H 1. 1 D1  GO  TO  Id 

’ SD  '■•<  * NT  ■HEP"  IN;  GO  So  THRU  Till.  LID  AND  CHANGE  COORDINATES 


IS  LL  THE.  LINE  FUNCTION  TO  D ET  LR  M I N E POLLUTANT  CONCENTRATION 

r,<  to  ( 2n  5,  204)  ,NPT 

ZC'3  CAST  (,G3  (VL,  VU,  ATNE,CONAV) 

GO  TO  220 

- 4 CULL  QG4  (VL,  V,  AI  NE.CONAV) 

220  CONTINUE 

C'f  ! - n EF  »CC  N A V/PI H * V N DFH  Q ( IM  S , IM  N DI  R , J ST AE> ) 

IF  (IRS TAT  (TRFCFP).EQ.O)  GO  TO  200 

T F STATIST:  'AL  OPTION  IS  CHOSEN  RECORD  THE  COUPLING 
i EFFI  IIN  DIRECTION,  PEED  AM  STABILITY  CLASS 

ON  NSTAFE 

C 1 - , v » I * / C I ♦TT«-/TTKCf' 

: F (C  .‘..0.1)  GO  TO  ^00 

- ,11:  »E  , ( E R 1 S ( K ) , K 1 , N F C L)  , 

. T RFTAT  (I  IE1  ?T»  , J TAB, C3, HLID 
0 CCNT  IN'IE 

"T”  I'M  TING  C 'EFFICIENT  To  CC  NCE  NTE  AT  ION  S 


, L,I  ) Al (I TYPE, I POL, IRECE! ) 

. * I r.  ( T no L)  * TO  E • TINE  / IIN to 

CONTI  NU®1 
C NTIN'I- 
RETURN 
E ND 


POLTL06  2 
POLTL06 3 
POLTLOb  4 
POLTL 06  5 
POLTL06  b 
POLTL067 
POLTL06  8 
POLTL06  9 
POLTL070 
POLTL07 1 
POLTL072 


E (liLI  D-7,  2 1)/  (7V2-ZV  1 ) 

POLTL07 3 

IF  (7  1 . G T.  Z2)  GO  TO  1b 

POLTL07  4 

X 2 - XI*  (X2-X1)  *F 

POLTL07S 

Y 2 - Y 1»  (Y2- Y 1) *r 

POLTL07  6 

GC  TO  17 

POLTL07  7 

1b  XI  = X2+ (X1-X2) *F 

POLTL 07  8 

Y 1 Y 2+  ( Y 1 - Y 2)  * K 

POLTL07  9 

17  ZV  2 - HLID 

PO  LT  LOB  0 

POLTL 08  1 

RECALCULATE  THE  LFNGTH  OF  THE  LINE  :JP  TO  HLID  A N L 

POLTL08  2 

CHANGE  VELOCITIES  ACCORDINGLY 

POLTL08  3 

POLTL08  4 

DISC  (X1-X2) * * 2 ♦ (Y1-Y2)**2  + ( Z W1 -Z  W 2)  **  2 

POLTL085 

PL  = SQRT(DLSO) 

POLTL  08  6 

TF  (2  2 .GT.  Z1)  V2  = SQRT  ( V 1 ♦ V 1 ♦ <. . ♦ A * DL) 

POLTL087 

IF  ( Z 2 -LT.  2 1 ) VI  = S0RT(V2*V2-2.»A*DL) 

POL  TL  08  8 

TINE  = 2.  * DL  / (VI  * V 2 ) 

POLTLOB  9 

18  V 12  = VI  * V 1 

POLTL090 

POLTL09  1 
POLTL09 2 
POLTL093 
POLTL09 4 
POLTL09S 
PO  L TL  09  b 
POLTL  9 1 
POLTL096 
POLTL"' 
POLTL100 
POLTL 10  I 
PO  L TL 1 02 
POLTL  10  3 
POLTL  10  4 
PO  L TL 1 0 5 
POLTL  106 
POLTL  107 
POLTL  10  8 
POLTL  109 
POLTL1 1 ( 
POLTL  1 1 1 
PULTL1 1 2 
POLTL  1 1 3 
POLTL1 14 
'’OLTI  1 1 5 
POLTL  1 1 b 
POLTLtl 7 
POLTL 1 18 
POI TL 1 1 7 
POL"LU0 
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1 


1 


SUBROUTINE  PSEUDL 

Purpose : 

To  call  the  SIGCY  and  SIGCZ  functions  to  find  the  vir- 
tual distance  in  meters  from  the  source  to  the  pseudo 
upwind  point  source  for  all  stability  classes. 

Input : 

1 . Wind  speed 

2.  Initial  dispersions  in  y and  z directions 

Output : 

The  virtual  y and  z directions  for  all  stability 
classes. 

Functions 

Called: 

SIGCY,  SIGCZ 
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SUBROUTINE  PSEUDL(WIN) 


172 


n n 


SUBROUTINE  P'PIJOL  (WIN) 

C 

C TiUS  ROUT^  N F CALL  THE  S1GCY  AND  SIGCZ  FUNCTIONS  TO  FIND 
C THE  VIRTUA!  DISTANCE  FROil  THE  SOURCE  TO  Tli.  P!  f D<  (iptf INI 
C POINT  SOURCE  FOs  ALL  STABILITY  CLASSES 
C 

COMMON  /IN  FO/  I R f.CSP,  IWNDIR,ITYPE,  HTAERo,  SOK  (It)  , I POL 
COMMON  /WDUN/  W 'I  A VS,  SH  DY  (6  ) , S U DZ  (.6 ) 

LATA  DELZO, WO  /-1.,-1./ 

SAVF  THE  INPUT  WIND  SPEED 

K = 0 

TF  (KSAVF.NF.WIN)  K-1 
w'SAVE  = WIN 

C IF  SORC(U)  OF  ..'Re  (S)  ARE  DIFFERENT  FROM  PREVIOUS  VALUES, 

r CALL  THE  STG  FUNCTIONS  TO  FIND  uISTANCES  IN  METEhF 

C 

IF  (SORC(U).  ).  W(|.  AND.  K.  0)  Jo  TO  20 
WO-SORC (U) 

W=WO/2 .4 
DO  10  JST-I.u 

" u D Y ( j st)  : v>  ( i>-, . , •«) 

10  CONTINUE 

20  IF  ( SOF: ( S)  . . .■ . r'  i-  L ’.An:  ..j.C)  Jo  TO  40 

DEI 70=SOfiC (F ) 

DEL".  = DELT 0/7  .4 
DO  to  ,1  ST  _ 1 . * 

S (ID 7 (JUT)  ■ S I ",  (.IST.DELZ) 

30  CONTINUE 
40  RETURN 
FND 


PS  IJDL  00  0 
PSUDLOO  1 
PSUDLOQ  2 
PSUDLOO  3 
PSUDL004 
PSUDL005 
PSUDLOOf 
PSUDL007 
PSUDLOOb 
P5UDL009 
P5UDL01 0 
PSUDL01 1 
PSUDL01 2 
PSUDL01 3 
PSUDL01  4 
PSUDL01S 
PSUDLOIf, 
PSUDL01 7 
PSUDL01 8 
PS  U 0 L 0 1 9 
PSUDL02  0 
PS  U DL  02  1 
PSUDL022 
PSUDL023 
PSUDI.024 
PS  U DL  02  S 
PSUDL026 
PSUDL027 
PSUDL028 
PSUDL029 
PSU  DL030 
PSUDL03 1 
PSIIDL03  2 


SUBROUTINE  QG3 


To  call  the  line  function  based  on  a three  point  Gaus- 
sian quadrature  procedure. 


Input : 

1.  Wind  directions  at  edges  of  sector. 

2.  Name  of  function  to  be  called. 


SUBROUTINE  QG3(XL,XU,FCT,Y) 


! 
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sUF’HitJTTN?  9 ; I ('<!  ,x:i,fct,Y) 

,r.  ROOTIN':  * 1 TIM- E POINT  GAUSSIAN 

a - . S*  (X'l+  XI) 
r<  -X"-  XL 

Y - . 3872«fl  »*r< 

V - . 2 7 77’  7 P*  (S><  " ( A ■*  Y)  + E 2T  ( A - Y)  ) 
v n * ( v • . nuuncjuu*  "CT  ( A ) ) 

t V Til  v JJ 

FND 


QG  3 0000  0 
QG30000  1 

QUADRATURE  FPOCfiURF  QG300C02 

OG30000 3 

qg  3000n  14 

OG  3 0000  5 
OG  30  000  fi 
QG  30000  7 
QG  30000  8 
QG 300009 
QG 3000  10 


SUBROUTINE  QG4 


Purpose: 


Input: 


Output : 


Procedure : 


To  call  the  line  function  based  on  a four  point 
Gaussian  quadrature  procedure. 


1.  Wind  directions  at  edges  of  sector. 

2.  Name  of  function  to  be  called. 


The  line  source  coupling  coefficient. 


The  four  point  Gaussian  quadrature. 


n 


SUBROUT INE  QG4 (XL , XU , FCT , Y) 


f 

^ STMT 


I 


A = 1/2 (XU+XL) 
B = XU-XL 


JL 


Y = 


C = .4505682-B 
.1739274- [FCT (A+C) +FCT (A-C) 


i 


C = . 1699905 -B 

B-  ( Y+. 3260726- [FCT (A+C) +FCT (A-C)]  } 


I 

l 

( RETURN ) 


7 


n n 


S UP  ROUTT  N E QG4 (Xl,XUf FCT,Y)  00400000 

c OG 4 OOOOI 

THIS  ROUTINE  TS  A FOUR  POINT  GAUSSIAN  QUADRATURE  PROCED'JPF  QG400002 

OG40000  3 

A - . S*  ( XU*  XL ) QG400004 

B--XU-XL  OG4GOOUE 

C=. 4305682*1'  QG4Q0006 

Y = . 17342^4*  (FCT  (A+C)  +FCT(A-C)  ) QG400007 

C= . 1 6 9990  5*  R OG  4 00  00  8 

Y=B*(Y+. 3260726*  (PCT  (A+C) ♦ FCT  (A-C ) ) ) OG40  000  9 

RETURN  OG 4 000 10 

cMrj  OG40001  1 


SUBROUTINE  QMOD 


Puroose: 

-fc  ■ ■ 

To  compute  the  linear  distribution,  in  inverse  length,  of  the 
pollution  along  a runway  due  to  aircraft  emission  during  landing 

or  takeoff. 

Input : 

YSI  Distance  along  runway  measured  from  tip  of  exhaust 
plume  near  start ing  end  of  runway 

TAIL  Length  or  penetration  of  exhaust  plume  of  aircraft 
at  rest 

DL  Length  of  smoke  slug  on  runway 

A Acceleration  (or  deceleration)  of  aircraft 

V12  Initial  velocity  squared 

VS  Average  velocity  of  exhaust  particles  relative  to 
air  mass  in  exhaust  plume 

WS2  Kind  speed  squared 

WSC  2 -wind  speed- (-  cosine  of  angle  between  runway  and 
wind  vector) 

RR  A/G,  where  A is  acceleration  and  G is  the  normali- 
zation constant  for  line  density 

Output : 

QL  The  linear  distribution  of  pollution 

Procedure: 

1.  Convert  the  quantity  YSI  to  XSI , the  distance  measured 
from  the  physical  end  of  the  runway. 

2.  Use  the  line  density  formula  to  compute  QL  in  inverse 

1 ength . 


None 
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SUBBOUT’-NP  VMOI)  <YS1,QL) 


THIS  R 0 U T T N r COMPUTES  THE  LINEAR  OIS  i‘«  IBUTIO  H,  IN  INVFRSF.  LENGTH, 
OF  THF  POLLUSTON  ALONG  A RUNWAY  DUE  TO  AIRCRAFT  EMM1STON 
DURING  LANDIN'  OR  TAKEOFF 


■us  on  oouo 
otodooo i 
ONODOOO  2 
qhodooo  3 
otopooon 

QNODOO 0 5 


COMMON  /INF 

•/  TfECEP, IVNDIft 

,I?YPE,tf TAERO, X 1 , Y 1 ,7  1 , » , 

DELZ , X 2,  Y2,Z2,  OMODOOOf. 

VI  , VC, 01.  ,T 

'll,  p M IS  (S)  , NPOL 

jMODOP  V 

COMMON  /LN/ 

XV  1 , YV1,ZW  1 , XV  2 

, YW2 ,ZW2 , SU!  )Y ,SUIH  , . a:  , 

TAIL, A, V 12,  VS  , 0*10  DOO  - 

PRC , WSC, RP 

F P 

t 

OMOp  30  : G 

X S 1 = YS1  - 

TA  TL 

0*0  BOO  1 r. 

IF  ( X S 1 . LF 

. -TAIL)  X S 1 = - 

TAIL  + .031 

3MOD00 I 1 

If  (XSl  .GT 

. PL  | XU1  = DL  - 

. 001 

3MOD001 2 

F X ST  = u. 

0MOD00 1 3 

IF  (XS1  .GT 

. ( D : -TAIL) ) FXSI  = XS1  - DL  ♦ TAIL 

OMOD001 U 

XSIb  = X S 1 

+ T A H, 

.."ODOO  1 S 

I r ( X S I P . G 

T.  PL)  XSIB  = DL 

OMOD0016 

X S I A = n. 

QMOD001 1 

IF  ( X S 1 . GT 

. o>  X S I A = XS 1 

0KOD00  1 fi 

PCOTB  = V 1 2 

* 2 . * A*  XS  I B 

QMOD001  <1 

FOOT A V 1 2 

* 2 *A*  X 3 T A 

QMOD0.020 

V a = SQRT(R0O^M  ♦ vs 

1MOD002 1 

VR  = SQRT  (ROO^B)  ♦ VS 

2"!  00002  2 

YA  = SQR  T (W  S 2 ♦ VA  *(VA  ♦ WSC)  ) 

UMOD002  3 

YB  = SORT  ( W 

°2  ♦ VB  * (V  3 + WSC) ) 

9MOOOG24 

ARG  = (YB  + 

V«  * ”SC/2.)  / 

(YA  * VA  ♦ WSC/2.) 

QMODOO 2 5 

QI.  = YB  - Y»  - 'SC/2 . * ALOG(ARG) 

0MOD0026 

OL  = HR  / T 

AIL  (FXSI  / SP 

* OL  / A) 

3MOD0027 

F FT URN 

OXOD0028 

FND 

0MOD332G 

SUBROUT INb  READ 


Purpose: 

1.  To  read  master  source  tape,  thereby  providing  the  emission 
inventory'  and  related  data  to  the  source  emission  distri- 
bution subroutines. 

2.  To  set  up  the  wind- dependent  sources  as  random  access 
disk  data  sets. 


Input: 

Master  source  tape. 


Output: 


ARRFCN , DEPFCM  to  disk. 
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SUBROUTINE  READ  (Continued) 


© 


4.  AIRCRAFT  ARRIVAL  AND  DEPARTURE  PATH 
PARAMETERS 


5.  SERVICE  VEHICLE  EMISSIONS  BY  AIRCRAFT 
0.  TAX  I WAY  ARRIVAL  AND  DEPARTURE  FRACTIONAL 
USE  BY  AIRCRAFT 

AIRCRAFT  ENGINE  NUMBER  AND  EMISSION 

FACTORS 

S.  TOUCH -GO  PATH  DATA 


END  OF  NACTYP  LOOP 


READ(ITAPE) , 
ANNUA.  EMISSIONS 


RETURN 
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n r 


SUBROUTINE  PEAD 

THIS  ROUTINE  READS  THE  MASTER  SOURCE  EMISSION  TAPE 

REAL  LNCSPD 
INTEGER  ENGNO 

CCMMCN  /ANN  MET/  TB A P , A ED, F , P A , WS 8 AR, DT B AS 
COMMON  / RECPT  / M R EC  FT , M A XFI L 

CCMMCN  / DEFALT  / IT  APE, ACLN DY , ACL NCZ , AL PH  A (7) , o ET A ( 7)  , FI DE NS  ( 7) 
CCMMCN  /ACEDB1/  AC EM FC  (3 , 1 0 , 6)  , A SC N T1  ( B)  , ASC NT 2 ( B)  , TXI S PD ( 8)  , 

. I ND S FD  ( 8)  , APSPE  1 (8)  , AFSPD2(8)  , COHT1  (8)  , TOSFD  (e)  , CGSPD1  (8)  , 

. CCSFD2  (8)  , SRT'JPT  (8)  , CSCNT1  (8)  , EGCHKT  (8)  , SHTDN'I  (8)  , DSCNT2  (8)  , 

. APPHT,APPHT2(8),CLMBHT,TOWT(8) ,ENGNG(8,2),IDRR(«) 

CCMMCN  /ACEDE2/  N ACT Y F , NR NW YS , NPKAR, IEGFLG, IACTYP  (3)  , ANNAKF  (8)  , 

. ANN  CEP  (8)  , ANNTGO  (8)  , ARRFCN  (2 4 , 8 , 6)  , DEPFCN ( 24 , 8, 6)  , I GO  (3,4, 8) , 

. DISRNW  (6) , RNWY  (7, 6)  , IUSWD  (20,6)  , ACFUEL  (8) , ARFLVT (8)  ,EPFLVT (6)  , 

. AC  S F I L (8 ) , ARS  Y EM  (6 , 8 , 5)  ,DFSVEM(6,B,5)  , NIBTT (6)  , N IBS EG ( 8, 6) , 

. I IBS  EG  (16, 8,6/  , IDIBTW  (8,6)  ,TT  ARF  R (8 , 8 , 6)  , NOBTI  (6)  , NOBS  EG  (8, 6)  , 

. IOBSEG  ( 16, 8,6)  , I DO BT W ( 8 , 6)  , TTD PF R (8 , 8 , 6 ) ,NPASQ  (o)  ,IDPRKA(6)  , 


READOOOC 
READ0001 
PEAD0C02 
P F ADC  00  3 
PFA  D0C04 
R F A DO  00  5 
P E A DO  006 
P E A DO  007 
READ00C3 
3 EAD0909 
READ0010 
PEAD0C1 1 
READOO 12 
RE  ADO  01 3 
REA  DC-14 
R E A DC  r 15 
READ0n16 
READ0017 
READOO 18 


PAREA  (6,3,3)  jICIBPA  (8,6)  ,IDOBPA(8,b)  , NLS EGS , ACLNSG ( 12,2  5)  ,JES1(8)READC019 


COMMON  /SRC  E/  N PLTS , N E NPT , NE N A R , NE NL N , N AB PT , N A B AR , N A 8 L N , N A C FT , 

. NACAR, NACLN.ENFT (16,  100)  , ENAP  (1  1,  IOC)  , ENLN ( 14, /O)  , ABPT  (16, 150)  , 

. ABAF  (11,  100) , \ BLN  (14,  100)  , ACPT( 16, 1)  ,ACAR(  1 1 , 24)  , ACLN  < 1 8,  25C) 
CCMMCN  /DSTRET/  ACMC  ( 1 3 , 8)  , AC D Y (2 , 8)  , ACHR  (2 4 , 8 ) , V HMLMO  ( 1 3)  , 

. VHMLDY  (2)  , VHMLHR  (24)  ,CVAPMC(13)  , CV A BDY  ( 2) , CV A B Hh ( 24)  ,CVENMO  (13)  , 
. CVENDY  (2) , CVENHR(24)  ,f LHC  (13, 7)  , FLDY  (2,7),RLHR(24,7)  ,NC1 

REAL  (ITAPE)  N PLTS , N P KAR , NR N W YS , NACTYP, NWD, AFPHT , CLM E HT , I EG FLG 
. , NLSEGS 
REWIND  30 
DC  2 1=1, NKT 
DC  5 J=1, NACTYP 

REAL  (ITAPE)  ((  ARRFCN (L , J , K)  , DEPFCN  (L , J , K ), L= 1 , 24)  , K = 1 , 6) 

CONTINUE 

WRITE  (3C)ARR1lN, DEPFCN 

CONTINUE 

REVINL  30 

MRECFT=  1 

RAXEI1=NWD 

REAC  (IIAFE)  (JES1  (I)  ,1=1  , NACTYP) 

READ  (ITAPE)  T B AR , A CD , P A , W SB A R, DT B AR 

READ  (ITAPE)  V HMLMO,  VHML  < , V H MLq  r <-ce  a B mO  *-c  ea  A Ai.  ,c  aA*r»-c  end  >-T 
. C VEND Y, C VE NHR , FLMO, FLDY , FLHR 
PEAD  (ITAPE)  NIBTT, N I B SEG  , 1 1 8 SEG , NOb TT , NOBS EG , IOBSEG 
REAL  (ITAPE)  t DO B T W , I C I BT K , I D PR K A , PA KL A , I BI BP  A , I DO BP A , N P AS Q 
REAC  (ITAPE)  3NWY, IUSWD, DISRNW 

READ  (ITAPE)  ( ( ACL N SG  (II , J J)  , 1 1 * 1 , 1 2 ) , J J=  1 , NLSEGS) 

PC  40  J= 1 , N ACT  Y F 

READ  (ITAPE)  (AC MO  (K , J)  ,K  = 1 , 13)  , (ACDY (K, J)  ,K=  1, 2)  , (ACHn(K,J)  ,K  = 1.24 


, RE  A DO  0 20 

0)  , REAPC321 
l F E ADO  022 

R E ADO  02  3 
13) , READOO 24 
R E A DO  0 2 5 
READO" 26 
LG  PEA  DO  027 
R E A DO  0 28 
R F A DO  028 
READOO 30 
RFADC031 
READOO  32 
PE  AD003  3 
R E A DO  0 3 4 
READOO 35 
READOO  36 
R E A DC  0 37 
READC038 
READOO  39 
FEADC^O 
LT  RF  ADO  04 1 
PEAD0042 
READOO 43 
R E A DO  0 4 4 
RE  ADC 04 5 
PEAD0046 
REA  DOOu  7 
1,24) READCC43 


READ  (ITAPE)  A N N A R R ( J ) , A N NDE P ( J ) , A N NTG C ( J)  , ACFU EL ( J ) , A R F L VT  (J ) , REAC0049 

. CPFLVT  (.1)  ,ACS?II  (J)  , IACTYP(J)  PFAD0050 

REAL  (ITAPE)  PSCNT  1 ( J ) ,PSC NT2  ( J)  , A SC  NT  1 (J ) , ASCNT2 ( J)  , RFAD005  1 

. TXISPD  (J)  , LNCSPD ( J)  , APSPC1 (J)  , APSPD2  (J) , TGSPD  (J ) , C0SPD1  (J)  , FFAD0052 

. C0SFD2  (J)  ,SRT'1PT  (J)  , EGCHKT(J)  ,SHTDNI  (J)  ,TGWI  (J)  ,APPH12(J)  , READ0053 

. COHT  1 (J)  , I CRR  (J)  PEAD0054 

READ  (ITAPE)  ( ( ARS  V EM  ( K , J , L)  , DPS  V EM  ( K , J , L)  , L = 1 , 5)  , K = 1 , 6)  , READ0055 

. ( (TTAFf R (K,J,L) , TTDP FP ( K , J, L)  ,K=1,8)  ,L=1,6)  F EADOOSb 

READ  (ITAPE)  ( ENGNO  (J , L)  , 1 = 1 , 2) , ( < ACEMFC (J, K , L) , K= 1 , 10 ) , L=  1 , 6)  FEAD0057 

REAC  (ITAPE)  ( (TGO(K,L,J)  ,K=1,3)  ,L=1,4)  READ0058 

40  CCNTINUE  0 E A DO  059 

4 READ  (ITAPE, END=3)  READ0060 

GC  TO  4 F E A DO  06  1 


FUNCTION  RISE 


Purpose : 

To  calculate  the  plume  rise  using  either  the  Carson-Moses  or 
Holland  plume  rise  formula. 

Input: 

Stack  parameters,  current  wind  speed  and  stability,  temperature, 
and  the  plume  rise  flag. 

Output : 

The  height  of  the  plume  rise. 

Subroutines 

Called: 

None 


i 
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r 


FUNCTION  RISE  (Cont'd.) 
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non  non  non 


FUNCTION  R1SE(2SS,JJJ) 

C 

C THIS  FUNCTION  CALCULATES  THE  PLUME  RISE 

C 2SS  IS  THE  PHYSICAL  STACK  HEIGHT  MODIFIED  FOR  DOVNV'ASH 

C EFFECTS,  IF  ANY 

C JJJ  IS  THE  AMBIENT  SIABILI1Y 

C 

COMMON  /MET/  WS, KSSPH , I WS , HD , I ED , S I NE WD ,COSE WD , JST A B, HLID,TEMF, 
. TFMK 

CO- MON  /INF O/  TRECbp, I VNDIR.ITYPE, HTAERO, XS, YS,ZS, DELI , DELZ , 

. TS,VS,DS,PP,PRFLAG,EMIS(8) ,NPOL 
D IM F N SION  A <b)  , EJ  (b) 

COMMON  /NNDPRO/  XF(b) 

DATA  A /2. 65,  2.  65, 2.  ©5,1.06,2*0. 68/, 

FJ  / 1.2,  1.2, 1.2,  1.0, 0.8, 0.8/ 

R TSP  = 0 . 0 
C 

C CHFCK  THF  STAC'  EXIT  GAS  TEMPERATURE 

C 

IF  (IS. EC. 0.0)  RETURN 

C 

C FOR  TALL  STACKS  USE  'TA  b I LI  TY  4 IN  THE  WIND  PROFILF  LA' 

C 

J -JJJ 

IF  (2SS.GT.60. AND.  J.  LE.  3)J=4 

C 

C COMPUTE  THE  WIND  SPEED  AT  THE  ELEVATION  OF  THF  STACK 
C FOR  STABILITY  J 
C 

wz=i  .o 

ZL=AMIN1 (2SS, 104. 3) 

IF (ZL.GT.  HTAESO)  VZ=  (ZL/HTAERO)  »*XP  (J) 

U=AM,Aa  1 ( «'S*WZ,  2 . 0) 

COMPUTE  THE  THEFMAL  EMISSION  RATE 

QH=67. 0*DS*PS*VS*ABS (T5-TEMK) /TS 
IF  (PSFLAG. Eg.  1 . 0)  GO  TO  1 
TF  (PSFLAG.  EO.  3.0)  yfi=TS 

CARSON-MOSES  PLUME  sjse  FORMULA 

°TSF  = A(J)  *S.  IS*  SQRT  (QH)  /'J 

upturn 


LAN  J v.  I'  R I '■  I FOR  MU  LA 
1 CONTINUE 

• I 5E=1 .5*VS*DS/r!*C'.04*QH/tJ 
RISE=PISE*FJ  (.') 

RETURN 

END 


RISE0000 
RISE0001 
RISF0002 
RISE000  3 
RTSE0004 
RISE0005 
RI SE0006 
RISE0007 
RTSF0008 
RISE0009 
RI SE001 0 
°ISF00 1 1 
RISE0O12 
RISF001 3 
PTSE0014 
RISE0015 
RTSE0016 
RTSE0017 
°ISE0018 
RISE0019 
RISE0020 
RTSE002 1 
RISE0022 
RTSF0023 
RI SE0024 
RTSE0025 
RTSE0026 
RISE0027 
PT  SE0028 
R1SE0029 
RISE0030 
RI SE J03  1 
RISEJ932 
RISF003  3 
RTSF0O34 
RTSE0035 
RI SEOn  3b 
RI SEOO 3 7 
3ISE00  38 
RT  SFOO  34 
RISE0040 
RISE004  1 
RISE0042 
SISE094  3 
RISE0044 
DT  S E004  5 
RI SE0046 
PTSE0047 
RTSE0048 
RISE004  9 

RTSE0050 

RISEOOS1 
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FUNCTION  RRDIST 


Input : 


Output : 


Procedure : 


To  calculate  the  length  of  runway  necessary  for  takeoff  using 
aircraft  dependent  equations. 


Aircraft  identification,  pressure  altitude,  ambient  temperature 
and  wind  speed,  and  aircraft  takeoff  weight. 


Takeoff  length  in  feet  of  runway  roll  to  liftoff. 


For  a given  aircraft,  use  the  proper  set  of  takeoff  equations 
provided  by  the  USAF. 


Subroutines 

Called: 


c 

c 

c 

c 

c 

c 

c 

C 


1 


6 


7 


1C 


FUNCTION  RHDIST  ( IR , P A , T, GW , WS ) 

FUNCTION  CALCULATES  RUNWAY  ROLL  DISTANCE  IN  FEET 

IF  IS  AIRCRAFT  IDENTIFICATION  NUMBER 

FA  IS  IRESSURE  ALTITUDE  IN  HUNDREDS  OF  FEET 

T IS  TEMRERATURE  IN  DEGREES  FAHRENHEIT 

GW  IS  AC  TAKE  OFF  WEIGHT  IN  THOUSAND  POUNDS 

WS  IS  THE  WIND  SPEED  IN  KNOTS 

EG  R = 0 . 0 

IF (IR.EQ. 100)  GO  TO  100 

GC  TO  (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,16,19,20,21,22, 

12  3, 24,25, 26, 27,  28,29,  30, 31  ,32, 33, 34,35, 3o ,37, 100,  100,  100,  100 ,100, 
2 10  0,  ICC,  100, 10  0,  100,  100, 100, 12)  , IR 
CCNTI NUE 
GC  TO  100 
CONTINUE 

TCF  = - (2.79-8.57  14E-4*  PA)  ♦ ( 1. 82E-2+7. 2857E-5*PA) *GK 
GR*  <1. 184E+ 1-4. 2167E- 1 *T*  1 . 0 E- 2 * T **  2- 4 . 533E-5*r**J)  ♦ 

. (4. 144+1. 7147S-2*T-9.26C18E-4*T**2) *TOE+ 

(1 . C457  + 9 .4CE-3*T  + 2 . 1 17F-4*T**2  + 2. 9 b t - 7 * T * * 3 ) * T 0 F * * 2 
EGR-  (GR-  (1.  1SE-1+9.0E-3*GF)*WS)*10C. 

GC  TC  100 
CONTINUE 

TCF=  (1.599+6.683E-3*PA*  1 . 2767 E-4* PA ** 2)  ♦ 

(b  . 8 19E-3+  1 . 1007E-4*FA-3.924E-7*PA**2) *T  + 

(5 . 979E-5  + 3 . 38096 E- 7 *PA *8.  532E-9*PA**2) *T**2 
GR=(-13.25+8.75E-1*GW-1.25E-2*GW**2)+ 

( 1 . 3925E+ 1-9. 275E-1 *GW+2.125E-2*GW**2) «TUF 
FGR=  (GR-  ( 1.  3 1b E-  1 + 9.  7 4 8E-3*GR)  *WS) * 100. 

GC  TC  IOC 

TCF  = (9.3937e-1  + 2.0947e-2*FA  + 2.005E-4*PA**2)  + 

( 3 . 746467 E-  2 + 4 . 0 562 5E-4 * PA) *T+ 

. (1.9928£-4-5.75006E-6*PA+1. 40234E-7*FA**^) *T**+ 

GP  = ( 1 . 4 30  7E+  1-7. 57 1 4 4 E- 1*GW+2. 678 5E- 2*G K« *2)  + 

(1.67257E+1-1. 17762*GW+2.7381E-2*GW**2) *TOF 
FGF=  (GR  - (2. 4 12799E-2+7.82  97lE-3*GR) *WS)  *100. 

GC  TC  100 

TCF-  (-1.06E-3+1.674E-2*PA  + 8.  1888E-5*PA**2) * 

( 1 . 36  E- 2 + 9 . c92E-b*PA+1. 755E-6*PA**+:)  * T* 

(5. 1 099 E- 5+1 . 2899 E- 6* PA -6. 1 23E -9*P A **2) *1**2 
G E = (-1.423E+1  + 6.  34  999  PF-1  *GW-+  1 .66  67  E-3*GW**^)  + 
(6.185t-3.2179E-1*GW+9.214F-3*GW**2)*TOF 
FGF=  {GF-  (6. 293E-2  + 7.  :•  ,RE-3*GR)  *WS)  * 10  0. 

GC  TC  IOC 

TCF  = (9.  J 3 E - 2 + ■ . 31 3E-2*PA+1.  366oE-4*PA**2) ♦ 

(2 . 25465-2+  1 . 7848E-4*PA-4. 0 4E-6*PA**2) *T* 

( 1 . 3438E-4- 1 . 21 66E-6*PA+4 . 1 854E-8*PA**2) *T**2 
GR-  (2.4ti+i-2.3''4»GK+b.4Q7E-2*GW**2)  ♦ 

(3.  1035+7. 52E-2*GW-3. 186E-3*GW**2)  *TOE  + 

( 1 . 271 5- 1 .55  35E- 1*GW+4 . 3 889E-3*GW**2) *TOF  **2 
EGR-  (GF-  (-9.0F-2+1. 807E-2*GR-7. 143E-5*GR**2) * WS) *100. 

3C  TC  IOC 

- ci  364!  5£-  1 ♦ !> . 6 35!  6E-2*P»)  ♦ 

(4.4l7E-2-2.031E-3*FA*5.63E-5*PA**2-3.9954E-7*PA**3)*T+ 

. (-9.2E-5*2.C8E-5*PA-5. 39E-7* PA  * *2  + 3 . 8 E-9* P A**3) *T**2 

GR=  (1  .65838-3 . 0b9 E-  1 * C-W  +8 . 1 363E- 2*GW  **2)  ♦ 

(-3. 61  1 1+  3. 63  559E- 1 *GW)  *TOF  + 

( 7. 3975E- 1 -8. 78749E- w*GW ♦ 3 . 2487E-3*GK**2) *TOF**2 
F8B  - (GR-(5.0E-2  + 7.4E-3*GR) *W5) *100. 

GC  TC  100 

TCF=  (12.  554  6-5. 719  2 E-,.* PA*  1. 3075 E-4* PA* *2)  - 


RRDST000 
RRDSTOC 1 
PRDST002 
RPDSTOO 3 
RRDST004 
PPDSTOOS 
RRDST006 
RPDST007 
PF  DST008 
PPDST009 
FPDST010 
PRDSTO  1 1 
RR.DST012 
PPDST01 3 
RPDSTO 1 4 
PRDST015 
FPDST016 
PRDSTO 17 
PFDST018 
RPDSTO  19 
PPDST020 
SPDST02  1 
PPDST022 
PPDST023 
PPDST024 
RFDST028 
PRDST026 
PFDST027 
FPDST328 
RPDST029 
r F D S T 0 10 
PRDSTO  3 1 
RF  DST0  3 2 
PPPSTO 3 3 
PFDSTO  34 
FRDST035 
RFDST036 
PFDSTO  37 
KPDSTO  38 
RF.DST039 
PF  DST040 
FFIST04 1 
PPTST042 
RFDST04  3 
HFDST044 
BEDST048 
RKDST046 
PPDST047 
FFDST048 
PRDST1U9 
PPUST050 
ERDST05 1 
PPDST052 
F P DSTO  5 4 
PRDST1S4 
PPDST055 
RPDST056 
RPDST057 
ERDST059 
FBDST089 
RBDST060 
RPDST06 1 


BtSl  WAllABli  COPY 


L 


r- 


(«. . 90J2E-2  - 1 . 02S4E-4*PA-  1.  4512  5E-7*F  A**2)  *T 
GR=  ( (-5.  1 49  55F+ 1 + 2. 57  957*GV- 1 . 44  25E-2*GW**2)  - 
. (-1.  1535E+1+5.915E-  1 *GV  -4 . 6 828 E-3*GW* *2)  *TOF  + 

(-6 . 2285E-1+  3. 2375E-«.*GK-2.  9056E-4*GW**2)  *TOF**..|  * 1000. 
FGR  = (3.305E+1+9.729E- 1*GR+2. 31E-b*GR**2) - 
. (8.244+8.  3598F.- 3*GF - 1 . 44E-8*GK**2)  *WS 

GC  TC  100 

11  TCF-  (7.436E-1+4.29E-2*FA)  ♦ (2.  127b E- 2-3. 11 lbE-5  *1 A) * T 
GR  = (1 .638F+ 1-7. 78E- 1*GK+2. 84 E- 2* GW* *2) ♦ 

. ( 3 . b09-  1. 947E-  1*GW  + 4. 264E-3*G» **2)  *TOF  ♦ 

. ( - 1 . °7b  E - 1 ♦ 1 . 5 7 i 7 E-  2 * IV  + 4 . 6 1 8 9 E -4  *G  W * *2 ) * TO  F’*  * 2 

F'GR=(GB-(8.5E-2  + 8.2SE-3*GB)*WS)*100. 

GC  TO  100 

12  TCF-  (1  . 1405-4. o 592-  3*  FA+1 . 28E-5*PA**2)  - 

. (2. 0 1 4bE-  3-2. 4o  E- 6*  FA  + 3 . 55  14E-7*PA**2)  * T 

GB=  (-3.00  29E+1-9.',22r' E-2*GW+  1.254  26  E-1*GW**2)- 
. (-7.3845E  + 1 + 1 . 20433*GH  + 1. 78572-  1*GW  * * 2)  *TOF  + 

(-3.57857E+ 1+7. 857E- 1*GW+7. 1428bE-2*GW**i) *TOF**2 
FGR  = ( (3. 17413F-1+9.762E-1*GF+2.657E-4*GF**2)  - 

( 1 . 1 1 14  E-  1 +7. 91  17  7E-3*GB+4.  4 0 1 b 9E- 5 *G  R*  *2 ) *WS)  * 100  . 

GC  TC  100 

13  TC  F = (9. 166-5. 485E-2*TA) - ( 3.4 12E-2-1 . 8t-4*PA) *T 
G F - ( 3 .02E+2-3. 5 19E+ 1*  GW+ 1 . 841 *GW**2)  - 

(1  . 306E+2-1 . 277  e + 1 * GW  + 5. 4E- 1*GK**2)  *TOF  + 

(2.0687E+  1-1. 71r>*GW+b.C7F-2*GW**2)  *TOF**2- 
( 1 . 1578-8 . 4 228E~2*GH  + 2. 46E- 3*GH**2)  *TOF*»  3 
FGh  = (GF- (9.55E-2  + 7.  15  E- 3*GR) *WS)  *100. 

GC  TC  100 

14  TOF  = ( 2 . 336+  1.582E-2*FA+1.  172E-4*PA**2)  ♦ 

(5.  bC4F-3  +9. 977 <i6  E-5*PA-5.  8 1 17  1 47b- 7*  PA** 2)  *T+ 

(9. 19269E- 5- 1 . 34357E-8*FA+ 1.61411E-8*1 A*+2) *1**2 
GF.=  (7.7366-2.  52997E-1  *G«+ 2 . 3bSE-3»GW* ♦ 2)  ♦ 

( - 2 . 1 07  1 ♦ 4 . 25  8b  K-  2 ♦ GW+  1 2 . 7 48  E-  4 *G  K * * ^ ) * TO  F 
FGB  = (GF- ( 1. 0755  E- 1 + 1 . 4588F-2*Gh- 7. 94 15oF-5*GB**2)  *WS)  * 10C  . 
GC  TC  100 

15  CONTINUE 
GC  TC  100 

1b  TCF  = (7.b8  59-1.  15E-1*PA  + 4. 413E-4*PA**2)  - 

(2.925F-2-8.  112i'E-4*FA  + 6.999E-6*PA**2)  * T- 
( 2. 2 289 E- 4 *5. 054 E-6 * F A -7 . 67E -8*r A * * 2) *1**2 
GB-  <* . 546 E+  1-2.  1388*GH+ 1 . 0717E- 1*GH**2)  - 

(7. 9095-6 . 74  34E- 1*GW  + 2.  1 045E-2*GN**2)  *TOF ♦ 

(6 . C99E- 1-5. 0858E-2*G2+ 1 . 434E- J*GW**2) *TOF**2 
FGB=  (GR-  ( 1.  16 E- 1+'. 27 E- 3*GB-3. 64E-6*GP**2) *HS) *100. 

GC  TC  100 

17  CONTINUE 
GC  TC  ICO 

18  TOF  = (< . 1 18*  1 . 05dF-2*PA+  1. 0 14E-4*PA**2) ♦ 

(2.102E-3*1.84E-4*PA-1.  177E-d*PA**2)  * T + 
(1.001E-4-7.046E-7*PA+1.355F-8*PA**2)*r**2 
GR= (1.0E-5) ♦ (-1.9687+4. 209 E- 1*GH+3. 9445 E- 2*GW **2) *ToF 
FGF  = (GP-  (8.  363E-2+1. 4R8E-2*GR-9.78E-5*GB**i) * NS)  *100. 

GC  TO  100 

19  TCF  = (4. 65478+6. 9444UE-3*T) +(3. 257E-1  + 2.7778E-4*!)  * (PA/10.) 
GR=  (.  1457  + 3.56  25E-2*GF-6. 763E- 5*GW* * 2)  ♦ 

. (5.  1428-3.  175E-2*GW  + 7.0C89E-5*GM**2) *TOF 

FGR= (GB- (. 1+.C082*GR) *HS) *100. 

GC  TC  100 

20  TOF  = ( 1 . c 1 92 956+ 2 . 209 1 577E - J*P A + 3 . 380 1 C 2E- 4* P A* * i) ♦ 

. (1.4628966F-2+2.6313S68F-4*PA-1.3818053E-7*rA**2) ♦ I - 

. (2.4891E-4-6.875E-6*PA  + 7.8125E-8*PA**«.)*T**2  + 

. (2.203l4E-6-6.49E-8*PA+7.«7F-10*PA**2) *T**3 


RPDSTQ62 
RFDST06  3 
BBDST064 
PBDST065 
BPDST066 
FRDST067 
PPDST06P 
FFDST769 
PROS TO  7 0 
PFDST071 
PEOST072 
RP  76T07  3 
PFPST'I74 

R F D 5 T 0 7 5 
FFDS?07b 
FPDFT077 
PFPST07S 
SBDPT079 
HPOST08C 
FROST  181 
FFDST0  8 2 
EEDST03  3 
RFOST084 
PBOST085 
FFPST086 
RRDST0R7 
RFOST088 
PFI>Sr099 
FF05T090 
PRO  ST04  1 

RRDST092 
FPDST09  3 
FPDST094 
FRPST09S 
PPDST096 
FF  ['ST 09 7 
RFC  ST  09 H 
FFCST099 
FPDST100 
PFDST1C1 
FFDST102 

P R D S T 1 0 3 
PFDST  104 
FROST  105 
FFDST106 
FFDP I 107 
FROST  108 
F F D S T 1 0 9 
FRDSri  10 
RFPST1  1 1 
F P PST  1 1 c 
FROST  1 1 3 
6FDST  1 1 4 
RRDST  1 1 5 
R F D S T 1 1 6 
PFDST1  17 
PRD  ST  1 1 8 
PROS  T 1 1 9 
PFDST  1 20 
BBDST121 
PPOST122 
KFDST12  3 


195 


Br:a  COPY 


•F  ( ( . . ‘ ■ '.'b  iff--'.  «2bS772E-2*GV*b.  b79b 9E-4 *GW**2)  ♦ 

. ( - 1.  V-  • 3 3 1 3 b*  5. 34  1098E-  2*GW-  2.  12517E-4*GW**2)*IOf')*1(l. 

f''k=  (1 . v*4. 77  57  143E* 1 *GS*(  .42  857  14  - 

. (u.b/--  706*5.  42 /55  1 5E-  1*GP*« . 4 3 87  78E-3*GF.  * * 2)  *'WS 

OC  1C  ICO 

.1  : C 1 (-4.799107E-1  ♦ 3.  316C179F-2*PA  ♦ 2 . 7902E-4*PA**^|  + 

. (. .1.41-2  * 2.2*185-4  * IA  - 2 . 9 1 b6  E- b ♦ PA  **  2)  * I 
n.'nu'  ♦ . hre-2  ♦ gw  ♦ 9.0525E-4  * gw  **2  ) + 

’ - I . ?4.7oi'-  1 • GV  ♦ 3.b5S9E-3  * G W * * 2 ) ♦ TOE  - 
. I"'-  4 1 » .. . ' n 7 - 1 ♦ GW  - 1 . 2 b 4 E - 1 * GW  * * 2 ) * Tut  • * Z * 

■ ( ♦ . 4 7 7 F - . * I.  - I.IObE-4  ♦ GW  **  2 ) * TO  F **  3 

(..4lM  - 1*2.  U‘  -5-4*GR  ♦ 1 . 935E-4  *UF**2)  *WS)  * ICO. 

GC  TC  10' 

..  CONTINUE 

"CF  : ( .411bE-.*b.  l9  7<  F -2*  F A)  ♦ ( 1 . 6 557  E - . -7  . t>  64  3 E-b  * P A)  *T 
• b ( 5 . fc , -4 . SF - t * ;w*  1 . 1135E-3*GW**2)  ♦ 

. (b.649bE-1  1 . .’7bS  E-  ^*GV  ♦ 1 . 07  7E-4*G  W * * 2)  *IUF  ♦ 

(4.i  Qb7E-  1 -5 . H WE-  l*GW*3.b27E-5*GW**2)  * TO F * ♦ 2 
FG F ; (UP-  ( 1. 50E  - 1*8.  b25E-  UGR)  ♦WS)  * 100. 

GC  TC  100 

T C F - ( 5 . 4 < i b 7 E ♦ 1 * 1 . 137rE-1*FA-2.  2755E-4*FA**..*3.65C8E-8*PA**3)- 
(7.  395E-2-1.715-4»PA-8.91E-6*PA**2*4.22F-b*FA**3)  *T 
GF;(b.6S4°E*3-7.7519bE*1*GV*2.0784oE-1*GW**2)- 
(f.b,02F*2-4.9948*GW*1.3051QE-2*GW**2)*TUF+ 

. (1.22  59ME+1-1.07805E-1TW  + 2. 759985E-U*GW**2) *TOF**2- 

. (P.8  94  8E-2-7.7746  4F-4*GV*1.95o483E-b*GW**2)  «TOF«*  i 

•P  - ( 1 • F * ( 1 . 4123214  E - 1 »d . c 29  3578£-3*;p*S.70y84bE-O*Gn**.)*V  5)  *100. 
GC  1C  100 

n F (7.9037  1*6.  689b5E-2*PA+2.  1 2b 2 2E-4 * PA* *. ) ♦ 

. (1.CCb0bE-2*2.6711HF-b*1A*9.85E-b*PA**2)*T* 

. (1.23149E-4*1.3589F-b*PA-3. 1o41E-3*pA**..)  *T**2 

Oh-  (2.  174^857*2. 04  2Mbf-1*GW-  1.0714  29  E*i*GW**«.)  ♦ 

. (1.  14  9 4 3 - 1 . 2707E-1*GW’*S.  1785E-3*GW**2)  * TO  f 

FGF  ( iF-(-2.7  3^7E-2*1.904E-2*GF)*WS* 

( - b . 3C?  C77F-4*  1 . 94bt'4F-4*GF)  *WS**^)  * 1 u 0 . 

GC  T<  100 
2t  CONTINUE 
_ 7 CONTINUE 
28  CONTINUE 

24  TC  F - (7  . S3935E-  US.  38189 S-2*PA)  + 

. ( 1 . 204  2FE-..  ♦ 4 . w Mfl  3 971-  r*PA-2. 3.448  E-b*PA»*.)  *T- 

. (4.7iE-6*1.b27b£-6*FA-2.405E-8*PA**.)*T**2 

: F r (3. 18978S* 1- 1. 78 S* GW* 3. 602 E-2*GW* * 2)  ♦ 

( -8 . 828  5* 5.  1 387E- 1*  GW-8.  679E-3 *GW ** 2)  *TOF* 

( - 1 . 7 f 4 4 1 + i . if  2 J 9 S-  2 * G V ) * TO  F * * 2 
FCr-  (G:--(b.t'4‘  -2*  1.  1414F-2*GK)  *WS)  * ICC. 

GC  TO  10C 

JC  TCF  = (-2.890514E-US.  8370°5b£-2*PA)  ♦ 

(U.  1b15b  1 E-.-3. 5184  45E-C  *PA1  *T* (-b.  0b 15E- 5*3. S309  5E-b*PA) *T**2 
GF  = (-2.b843  37£* 1 + 3. 2.49S4*GW)  * (-2.C581 5 19*3 . 7024  35bE-  1*GW)  *TOF* 
(-8.6b1357F-  1 + 8.  309  3 188  E~2*  G W)  *TOF**^ 

FGR-  (GF-  ( 1 . 3Sb3  733E-1+4.5833E-3*GF)*WS)*10C. 

GC  1C  IOC 

31  TCF=  (7.46275E-1 *1 . 7 89 92« F-2* P A* 1 . 667729E-4* i A**.)  ♦ 

. ( C> . 1017H7SE-  3 ♦ '.4.4  1b447I-4*PA-  1.b4Ce2.9E-b*PA**2)  *T* 

( 1 . 71852SE-4- 2. 6 2 18 .‘E-6*PA*4.  1 84  375£-B*f  A **2) *T**2 
G P=  (-7 . 2378  1 29E  + 1 ♦ 3 . 8 4 856  8 UE ♦ 1 *G W - 1 . 5 b b*G W*  * 2 ♦ 3 . 9 1 o E-  1 *G V*  * 3 ) ♦ 

. (■»5.477E*1*2.92E*1*GW-4.97S*GW**^*2.9CbE-1*GW**3)*rOF 

FGR=  ( (-1.607758*  1. 22w 17b*GF-5. b4 3 75 E-3*GR** 2)  - 
. (. 48 2382 E- 1*2. 2260  1 52F- 2*GK-4. 74o2 1 1b E - 4*Gh* * 2) ♦ WS) * 100 . 

GC  TC  100 

32  TCF  = (1.99b*  1.fc4E-2#FA*2. 5bE-5*PA**2) ♦ 


PP  DST  1 2 4 
F P DST  1 2 5 
RF  DST  12b 
FRDST127 
FFDST  128 
F B O ST  1 29 
RFDST1 30 
PRPST1  31 
RFDST132 
PFDST1  33 
PRDST1  34 
PPDST  1 3E 
PPDST1 3b 
FFDST137 
PFDST  1 38 
FFDST1  39 
FFDST140 
PFDST141 
RFDST142 
FF0ST143 
FF0ST144 
FPDST145 
FFDST146 
FFDST147 
PPDST  148 
FFDST  149 
RFDST13C 
FFDST  151 
FFDST  182 
FFDST1S3 
FFDST154 
PF  DST  158 
RF  DST 15o 
FBDSTV'l 
FFDST  158 

FFDST159 

PFDST160 

P P D S T 1 b 
FF  DST  1 fo  2 
FFDST  1b  3 
RFDST164 
FFDST  1bc 
FF  DST  1b6 
P F D S T 1 b 7 
PFDST  168 
PFDSTIb0 
BFDST170 
Fh  DST  I7  1 
FFDST172 
FFDST173 
EFDSrl74 
PFDST175 
FPDSTWb 
F FD  ST  1 7 7 
PFDST  17  8 
RFDST179 
FRDST180 

FF  DST  18  1 

KFDST1H2 
PFDST193 
FFDST  184 
FF  DST  IBS 
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. (8 . 64E  - 3-  7.  E-b*  PA  ♦ 1 . 6 1 F“6*  PA**2)  *T 

G F = (t . 2t)E*  1 - 1 . *99  E*  1*  GW  *6  . 886  E-  1 *GW**2)  ♦ 

<-1.0004E*2*2.0317E*1*GV-9.67E-1*GK**2J  *IOF* 

. (1.30368E*1-2.689*GW*1.40?F-1*GK**2)  *T0F**2 

FGB*  ( (-3.  3E-1*1.047*GR-H.  57E-4*GR**2)  - 
. <4.22E-2*9.47E- i*GF*1.9898F-5*Gfi) *WS) *100. 

GC  TC  100 

3 3 TCF  - (b  .6742857c-  1 ♦ ’t . 8 2 2b  7 86E- 2 *PA ) ♦ 

( 1 . 0271 43F-2*  3.C51  3 395-4*PA) *T*  <1. 74994E-4+5.C23E-7  » l A) *T*  *2 
GF  = (-1. 37666b  o 6 E » 1 ♦ 1 . 6791fcbb66*G«)  ♦ ( - ) . , \>  * 4 . 7 1 r 7 •>  c - 1 * V ) *TOF 
F GF  = (GB-(1.516666666oF-1*1.0C83333333E-**Gfc)  * « 3)  *100. 

GC  TC  100 

34  CONTINUE 

35  CCNTINOE 

36  TCF  = (-9 . 2 03 3 3 37 E- 1*5.  9 1 1 3889E- 2* PA)  * (3.  * 7 IbtbE-/-*.  7 7 78E-5*PA)  *T 
GB=  <3.711  17  6E*  1-1 . 64C279E*1*GW*2.  22o09*<;***2)  ♦ 

(-2  . C99  22  E* 1 ♦ 8. 699 1 796*G«-8 . 4586E- 1 *G ** *2 ) *TOf  + 

. (2. 246949-9. 09  34  8b  F- 1*GV  * 1 . 06  1 975S- 1 *GW  **  <.)  *TOF*** 

E GB  = (GR-  (4.  3358 S- 2*2.  196E-2*GP) * WS* 

. (8. 79^09E-4*8. 21 2 19  E-5*GR) *WS**2)  * IOC . 

GC  TC  100 

3 7 TCF  - (-6.46E-1*6.7857E-2*PA*2.723E-4*FA**2)  + 

(3.69E-2-2.i4E-3*PA*3. 4 9 E-5 * P A*  * *)  *T* 

. (1.C7F-4*3.85E-5*PA-4.688E-7*pa**2)  *T**3 

G F = (b  . 38-  1 . 10c  *'5V*  1 . 1 4E  - 1 *GW**2)  ♦ 

(8. C2F- 1-2. 57S- 1*GV*2. 4F-^*GW**2)  *TOF 
FGB  = (GB-  ( 1. 6E-2*2. 44E-2*GR-2. 1 28E-4*GB**2)  * WS)  * 100. 

GC  TC  100 
100  B FD I ST  = FG  P 
BETI1BN 
END 


f BQST186 
BP.DST  187 
BBDST188 
PBDST189 
RPDST  190 
FPDST 19 1 
PF  D8T  1 9 2 
PPDPT193 
?F?ST  1 9 u 
f PDST1  ■>  5 
FROST  196 
PB  OST  19  7 
R ? 0 S T 1 9 9 
?P  0ET199 
PR  OST200 
F F r c T 2 0 1 
FBDST202 
FBDST203 
?F DST204 
F ROST  20  5 
FBDST20C. 
RPDST 20 7 
PFDST208 
RPDST209 
P R D S T * 1 
FRDST21  1 
PPOST21  2 
P F 0 ST  2 1 3 
R R P S r 2 1 4 
SBDST2  1 5 
PR  D ST2  1 
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SUBROUTINE  SIGTZ 


Subroutines 

Called: 


At  the  first  entry  to  the  routine,  to  compute  the 
critical  distances  in  meters  for  each  wind  speed  and 
stability  class.  At  each  subsequent  entry  to  compute 
the  vertical  dispersion  in  meters. 

1.  At  the  first  entry,  mixing  heights  for  all  wind 
speeds  and  stability  classes. 

2 . At  all  subsequent  entries : 

a.  Stability  class 

b.  Downwind  distance 

1.  At  the  first  entry  the  critical  distance  array  is 
filled. 

2.  At  all  other  entries,  the  vertical  dispersion  is 
returned . 


None 


subrout i Ni:  s i ct:  ( js , xm.si cz) 


C(1,.JSTAB)*1 . 1487 

!.JSTAB)*10D(2,',STAE) 

*1.1487 


AXCRITf IW, JSTAB) 


AMXHT(  1W,JSTAB)*0.4 


AXCRM't  IW,. JSTAB  1 


iiND  LOOP  ON  I STAB 


RliTURN 


C(I,JS)*XX 


■ 


S'IRR0UTtN  E SIGTZ  (JS,  XM,  SIGZ) 

c 

C THIS  ROUTINE  COMPUTES  THE  VERTICAL  DISPERSION  OR 
C DO'JNVTND  DISTANCE  T N METERS 
C 

COMMON  /CONS/  ? 14 , PI8 , P1 1 b , KPR , A MX HT  (6 , 6)  , AX CRI T (6 , 6) 

DIMENSION  C (3 ,b)  , D(3, b) 

DATA  C /4 70. , 470. , 470. , 110. , 110. , 110.  ,b0., 60  . ,60. ,33. ,33. ,4  1 ., 

. 21. 5, 21.  r>,  3b.  ,14.,  1 4 . , 2 3 . 5/ 

DATA  0/  1 . b7,  2.  1 3, 2.  1 3, 1.  0, 1 . 09,  1 . 09, 0. y2,C .92 ,0.02, 

9 0.60,0. 81,0.83,0.70,0. 56, 0.35,0. 78, 0.53, 0.30/ 

TF  (KPR . NE. 0) 00  70  10 
C 

C AT  THIS  ENTRY  THE  CRITICAL  DISTANCES  FOR  EACH  VI N D SPEED 
C AND  STABILITY  CLASS  ARE  CALCULATED 
C 

K PP  - 1 

DC  1 J ST  A B=  7 , 8 

T S 1 = C ( 1 , J S T A P 1 * 1 . 1487 

TS2  = C (2,  JGT  » B)  * 10 . **D  ( 2, JS  TAB)  * 1 . 1 4b7 

DO  2 IH= 1 ,6 

A.XCPIT(TV,JETA3)  =0.0 

T =3 

C DM  S = A MX  H T ( I W , J ST  A B ) *0.47 
I F (CD MS . E 0 • 3.0)00  TO  2 
IF  (CDM S . i T. TS 2)  1 = 2 

I F (CDMS  .LT.TS1)  1=1 

A XCr TT  (TV , JSTAB) = EXP (ALPG  (CDM  S/  (C  ( I , J ST  A B)  * 1 . 1 4 H7)  ) /D  ( I , JST  A B)  ) 
. *1000. 

2 CONTT Nfi° 

1 CONTINUE 
PFTURN 
r 

C AT  THIS  ENTRY  ”HE  VERTICAL  DISPERSION  IS  CALCULATED 
C 

10  CONTINUE 

XX=XM*1.0E-3 
T = 1 

IF  (XX. GT.  1. ) 1 = 2 
IF  ( X X . GT . 10.0)  T = 3 

STGZ=  (C(T  , J ')  *XX**D  (I,  JS.)  ) *1.  1487 

RETURN 

F«D 


SIGTZ000 
STGTZOO 1 
SIGTZ002 
SIGTZOO  3 
SIGTZ004 
S T GTZOO  5 
SIGTZ006 
STGTZOO 7 
ST  GTZOO  8 
SIGTZ009 
S I G T Z 7 1 0 
SIGTZ01  1 
SIGTZ012 
SIG7Z01  3 
SIGTZ014 
31 G TZ"1 1 5 
STGTZ016 
SIGTZ  17 
3IGTZ018 
SIGTZ  719 
3IGTZ020 
3TGTZ02  1 
51 G TZ 32  2 
SIGTZ 72 j 
IG  TZ  3 2 4 
5IGTZ025 
SIGTZ026 
s;gt?727 
^TGTZ-728 
ST  G TZ  9 2 9 
SIGTZO  )0 
S T G T ? o 7 1 
SIGTZ032 
SIGTZ03 3 

SIGTZ''  ) 4 

SIGTZ 035 
SIGTZO it 
STGTZ037 
STGTZ938 
GTGTZ039 
STGTZ340 
STGTZ94 1 
STGTZ04  2 
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FUNCTION  SIGY 
(ENTRY:  SIGCY) 

Purpose: 

Io  compute  the  horizontal  dispersion  coefficient  in  meters,  or 
at  entry  SIGCY,  to  compute  the  virtual  distance  corresponding  to 
the  initial  horizontal  dispersion. 

Input : 

1.  Entry  SIGY  - time  of  travel  in  hours 

2.  Entry  SIGCY  - horizontal  dispersion  in  meters 

3.  Stability  class  and  wind  speed 

Output : 


1.  SIGY  = horizontal  dispersion  in  meters 

2.  SIGCY  = virtual  distance  in  meters 
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FUNCTION  SIGY 
ENTRY:  SIGCY 


o nr 


f UNCTION  STGY  ( J .•’’HOUR) 

C 

THIS  FUNCTION  COMPUTES  THE  HORIZONTAL  DISPERSION  COE F -’ICI ENT 

IN  METERS 

COMMON  / V 'MJ  N / VFAVE 
DIMENSION  A(b>  , B(b)  ,C(o)  ,D(b) 

DA^A  A/Z.  151  1 , 1 .5954, 1 . 060b  , . t>  B4b5 , . 593b o, . 59 3bb/ 

DATA  B/.  AH?t>,  . 88  26 1 , .89031,  . 888bb  ,.89 138, .89178/ 

DATA  C // 12. ,155. , 100. ,68. ,50., 39./ 

DATA  D/E. 89, 9. 91,0.92, 0. 93,0. 9u,0. 93/ 

TfEC-TPOljp*  ib00. 

SIGY  = (A  (.3)  *TS  EC  * * 8 ( J)  ) *0.87 
XX=VSAVE*THOMP* 3. t 
SIGXY=C(.1)  * ( XX  * *P ( J)  ) *1 .93 
SIG  Y = A M A X 1 (SIGY  .SIGXY) 

RETURN 

ENTRY  STGCY (J, S IGY0) 

C 

C AT  THIS  ENTRY  THE  DISTANCE  OR  TRAVEL  TIME  CORPES PONDING  TO  THE 
C INPUT  VALUE  OF  THE  HORIZONTAL  DISPERSION  IS  CALCULATED  AND 
C RETURNED  A.S  DISTANCE  IN  METERS 

C 

TSEC-EXP(ALOG(STGY0/(A  (J)*0.87))/B(J)) 

X=TSEC*ZSA VP 

XX=FXP  (A  I OG  (SIGYC/(C(J)  *1.  43)  )/D(J)  ) *1000. 

SIGCY=AMTN1 (X, *X| 

FfT"RN 

END 


STG Y0000 
SIGY000  1 
SIGY0002 
SIGY00O  3 
SIGY0004 
SIG Y0005 
SIGY0006 
SIG  Y0007 
STGY0008 
SIGY0009 
STGY0010 
SIG Y0C1  1 
STGY001 2 
STG Y00  1 3 
SIG  Y0U1 9 
SIGY0015 
STG  Y00 1 6 
SIGY001 7 
SIGY0018 
SIGY0019 
SIGY0020 
SIGY0O21 
SIGY0P22 
SIGY0023 
SIG  Y 0 02  9 
STGY0025 
S I G Y 0 0 2 6 
SIGY0027 
SIGY0028 
SIGY0029 
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FUNCTION  SIGZ 
(ENTRY:  SIGCZ) 


Purpose: 

To  compute  the  vertical  dispersion  coefficient  in  meters,  or  at 
entry  SIGCZ,  to  compute  the  virtual  distance  corresponding  to 
the  initial  vertical  dispersion. 


I nput : 

1.  Entry  SIGZ  - time  of  travel  in  hours 

2.  Entry  SIGCZ  - vertical  dispersion  in  meters 

3.  Stability  class  and  wind  speed 

Output : 

1.  SICZ  = vertical  dispersion  in  meters 

2.  SIGCZ  = virtual  distance  in  meters 
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FUNCTION  SIGZ 
UNTRY:  SIGCZ 


FUNCTION  STGZ  (J  , TUOUB) 

THIS  FUNCTION  COMPUTES  T He.  VERTICAL  DISPERSION  COEFFICIENT 
IN  MET  E F s 

COM  SON  /'•’pun/  < ;#v  F 


SIGZOOOO 
SIGZOOO  1 
SIGZ0002 
SIGZOOO 3 
SIG  ZOOOU 
STGZOOO  5 


OTKFNSION  r { 
DIFFUSION  77  v F 

3 ) . " U , 
(->) 

6)  , A (b,*> 

) ,8(6, 

6)  ,CK  (6,6) 

SIGZ0006 
SIGZOOO  7 

PAT  A 

T T * l’  / 3 

’ 0. , 1000. , 3000. 

, 10000 

.,  30000.,  172000./ 

STGZ0008 

PAT  A 

A/.  1 1 1 22, 

. 2 766 8 , 

.41219,. 

51921, 

.509oi,. 47639, 

SIGZ0009 

\ 

.110*,, 

. J99S  3, 

. * 1/19, . 

S 7 1 4 S , 

. 76485, .7 1936, 

STGZO01 0 

2 

.01338, 

. 361  40, 

.41219,1 

.0813, 

1 . 94  0 7 , 2 . 3901  , 

SIGZOO  1 1 

* 

1 3 3«  , 

. 1 8 6 4 0 , 

.41219,2 

. 28  30, 

2. 9850, 3. 8684, 

SIG ZO0 1 2 

\ 

.01338, 

. 16840, 

.41219,2 

. 33.33  , 

S.  7990 , 16 . 897  , 

SIGZOO  1 3 

4 

.01333, 

. 16640, 

. 41219,5 

. 6801, 

14.599,64.577/ 

STG7.001  4 

DATA 

'i/i . 2098, 

1 .0S72, 

. 92365,  . 

84130, 

. 79689, . 76  308, 

SIGZ001 5 

1 

1 . 2884, 

. Q9275, 

. 92365,  . 

82449, 

.72571 , .69082, 

SIGZOO 1 6 

1.5922, 

1 . 1 19S, 

. 9 23o  5 , . 

73217, 

. 59047, .51700, 

SIG  ZO0 1 7 

4 

i . r o 2 2, 

1 . 1 IPS, 

. 92365,  . 

6 3883 , 

.53708, .45686 , 

SIGZ0018 

u 

l . 5922, 

1 . U 35, 

. 92  36  5,  . 

6 3b46 , 

. 4b 4 9 7 , . 29621  , 

SIG ZOO  19 

s 

1 . s 9 2 2 , 

1 . 1195, 

. 923o  5 , . 

55016, 

.3/541 ,. 16667/ 

STGZ0020 

DATA 

C/470. ,47 

o. ,470. 

, 1 10.  , 110. , 1 10 

. , 60. , 60. ,60.  , 33.  , 33.  ,40  . , 

SIGZOO? 1 

. 21. S, 21 . S,  36. f 1H. , 14 . ,23. 5/  STGZ0022 


DATA  D / 1 . 6 

7, 2.  1 3,2.  1 3 , 1.  , 1 .09,  1 .09, 

0.92,0 

. 92,0. 92,  0.  80, 0.61 , 0.53  , 

SIG  ZO  02 3 

. 0.70,0. 5 < 

,0.  35,0. 78,0.53,0. 30/ 

SIG7.0024 

DA’rt  CK/ 

STGZ0025 

1 170., 

IIS.,  80.,  y 3 . , 

48.  , 

37.  , 

S IGZ0026 

.’  800.  , 

380.,  24 3.. 5,  170., 

115., 

PS., 

SIG  Z0027 

3 4600., 

1-90.,  671.,  380., 

220.  , 

ISC.  , 

SIGZ002S 

4 3127b., 

5002.  , 2043  . 32,  8 20. , 

420.  , 

i60  . , 

SIG  7, 002  9 

5 179855.2, 

17111.38,5628.47,  1650., 

700  . , 

358.  , 

SIGZOO  30 

•.  2900444 . t 

120072.5,28241.86,4312.55 

, 1 34  8 . 

32,  481 . 58/ 

.STGZ003  1 

T SF C"  mHOU  o * lf,Qfl . 

U(  10  N - 1 , 6 

IF  (TSEC. IT. ”7 ME ( N)  ) GO  TO  20 
1 J CCN TIN HP 
N - h 

T T” r ■ ' TRAVEL  SHOULD  BE  LESS  THAN  1 72000  SEC.  OR  APPROX.  2 DAYS 


SIGZOO  3 2 
SI G ZOO  3 3 
SIG  ZOO  3 4 
SIG7003S 
SIGZOO 3 6 
STGZOO 3 7 
SIG  ZO  138 
S IGZOO  3<1 
SIG 7 0040 


ifl  CONTI  N'JP 

’ c - (A  (.7  , V)  * T S FC  * *3  (J  , N)  1 
y v - \ vf*iHc-t»»  t . 


ST  G ZO  04  1 
S T G ZO  04 2 
SIG  7.004  3 


S T G Z 0 0 4 4 


TF(yY."'.10.)  t - i 


SIG  7004  5 
STGZ0046 


C'NVEFT-  FP'IM  A 1 "1  2C  MIN.  SAMPLING  TIMS 

1 . • 4 ■ - **..,  'r,”r  1/5  P(V-*ER  LAN  ONLY  APPLIES  TIT  TO  20  MIN. 

» w r ■ . y;  u "•.«••'• 


ST  G ZO  04  7 
STG7.004B 
S 1 33  7.004  3 
ST  G Z 0 0 5 0 


SIG  ZOOS  1 

S T G T L I (T,1  1*XY**P(1,J  ) )*1.14H7  STG7X05  2 

'TGr-  A may  i , s - sigzoos  3 

'FTURN  STG7.U0S4 

ENTRY  SIGCZ  ( J , S 13)  SIGZOOSS 


A."  THIS  FNT'-Y  TH r DISTANCE  OR  TRAVEL  TIME  C ORES  PC' N DI NG  TO  THE 
INPUT  V, Or  THE  VERTICAL  DISPERSION  IS  CALCULATED  ANP 
F'lin-N’D  AS  DISTANC*-  IN  METERS 

DO  110  N = 1,0 


sigzoos p 

SIG7.00S7 
SIGZOOSS 
STGZ 0059 
STGZ0060 
STGZ006  1 
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IF  (SIfl.Ll'.rK  ( J , N ) ) Go  TO  120 
1 10  CONTINUE 
N~6 

1?0  CONTINUE 

TSEC  = EXP (ALOG (SIG/A (J,N) ) /B (J , N)  ) 

SIGXZ  = TSEC*,-’F»V,- 

T F 1 = C ( 1,.I)  « 1.  1UH7 

TS2=C  (2 , J)  *10. (2, J)  * 1.  1487 

1 = 3 

IF  (SIG.! T. TS2)  T=2 
I F (FIG . IT. TGI)  I-  1 

S IGCZ  = EX  P (ALOG  ( . 1 0/  (C  ( I , J)  * 1 . 1 4 67)  ) /D  ( I , J ) ) * 1 0 0C . 
SIGCZ=Af1IN1 (FIGCZ.SIGXZ) 

RFTURN 

FND 


FIGZ006  2 
FIGZ006  3 
FTGZ0064 
SI  G ZO  06  5 
STGZ0066 
SIGZ0067 
SIGZ0068 
STGZ0069 
SIGZ0C70 
STGZ007  1 
SIG  Z007  2 
FTGZ0073 
SIGZ0074 
GIGZ0075 
SIG Z 0076 


SUBROUTINE  SOURCE 


Purpose : 

To  posit  Lon  the  master  source  tape  to  read  the  airbase  and 
environ  source  inventory  data  and  to  call  the  subroutines 
which  compute  the  emission  rates  in  micrcgrams  per  second 
at  the  airbase  and  environ  sources. 

Input : 

JFLAG,  a parameter  to  indicate  whether  the  diurnal  distri- 
bution used  is  input,  default  or  the  same  as  previous  hour. 

Output: 

A statement  indicating  the  diurnal  distribution  used. 

Sub rout ines 
Called: 

ABPTAR,  ABARAR,  ABLNAR,  ENARAY 
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oUPPlOIINE.  SOURCE 

SCUPC001 
SO UPC 002 

I PIE  :•  jariNt  GtPVES  AS  a DRIVER  10  ^.ALL  SUbP.OUlINES 

sou  scoo  7 

• high  cci:'i:.  r-ir.  emission  hates  in  bicrogpakj 

SOURC004 

T H-  -ECv^MD  AI  I’H£  A I rib  AGE  A N L ENVIrON  SuO'hLi.b 

SCUPC005 

SOUPCOOb 

CCKMCN  / DEFAI I / ITAPE 

SOU  RC007 

c :-.r  n /period/  i mont  h,  nol  ay  ; , iday,  ilk  i,  ihpw  ifi.ag,  je  gag,  ionce 

SO"FC008 

HHI  N /J UNK/DAY8PLSRC E , HSRCE, S • R C E ( 1 7 , s 0 0 ) , SCRGH ( 10 , *00) 

SOU  PC009 

. , LCb  1 , 10C2  , NGE  ,/M  , I PT 

SOUPCO  10 

DINE  NS  ION  NAME  <L) 

SCIJRCO  1 1 

DATA  NAME  /4H 1/ 1 * , 48 1 / 

SCU PCO  12 

IP  (ICNCE.Et-C)  GO  TO  J'J 

SO UPC 01 3 

1 E ND= 1 

SOU  PC  D 1 4 

X Z I = 1 

SO  U ECO  1 5 

GL  LC  4t 

SC UP CO  1b 

3G 

I ENl  =c 

SCU  PCO  17 

I C NC  E = 1 

SOUPCO  18 

I S I = C 

SOU  FCO  19 

4 0 

CONTINUE 

SOU  PC  020 

BATS  - NCDAYS 

SOU  ECO  21 

IE  (1ST.  EC.  1)  GO  TO  3 

SOU  PC022 

1 

ic  pm  a : ( i u ) 

SO  UPC  02 3 

PEAS  1,  JrLAG 

SCU PCO 24 

IE  ( JE l AG)  3, 7,3 

S(  UF.C0  25 

7 

EPINT  5 

SCUFC026 

5 

FCP  M A T (Olh'IINFUT  DIURNAL  D IS  1 F IfcU  I 1 u.N  U ^ ED) 

SOU  PCO  27 

GC  1C  4 

SOUFC328 

a 

1=1 

SOU  PC029 

IE  (NCDAYS. EC- 1oS)  I-  * 

SOUEC030 

FEINT  S, NAME (I) 

SCU ECO  31 

u 

FG3P1AT  (34H0DEF AULT  DIURNAL  OISIRJ.EUUIGN  USE.D/5X,  121IHOUR  = 1/24,5 

X, SOUPCO 32 

. 1 C ill  A Y = 1/7,SX,8HMJN1H  = A4,  1 H , 5 a , 1 * ii  U N I F E.  C = L . 1 ) 

SOU PCO 3 5 

GC  TC  u 

SOUPCO 34 

3 

FEINT  b 

SC  UP  CO  35 

t> 

FCEMA1  (J-HODIUSNAL  DISTRIBUTION  SAM:.  As  LAsl  HOUR) 

SOU FCO  3fc 

oC  7 C 10 

SCU  BCG  '7 

4 

IF  (IEND.Sv. 0)  GO  TO  12 

so  u p i a 

1 1 

PEAL  (IIAFE,EN1=1e) 

SOU FCO 39 

GC  TC  11 

SO  UPC  04  0 

‘\4L 

I ENL  = 1 

S I ECO 41 

GALL  A B £ T A r< 

5CUFC042 

CALL  AtAi'AH 

SC  UPC  04  3 

GALL  A £ L N A r 

SOU P C 0 4 4 

SO  U F C C 4 5 

10 

FFXINI.  rIAE! 

SGUPC046 

& L I U h N* 

SO'J  PC 04  7 

INC 

SOU  FCO  4 8 

[ 


SECTION  II 


INTRODUCTION 

After  tescing  of  the  Long-Term  Model  showed  that  computer  running 
times  were  unacceptably  long,  it  was  decided  that  ANL  would  develop  a simpli- 
fied version  of  the  Model,  termed  the  Applications  Model.  This  new  version 
had  to  minimize  the  loss  in  accuracy  (as  compared  to  the  original)  of  calcu- 
lated pollutant  concentrations  and  keep  the  same  input  requirements. 

Since  the  calculation  of  dispersion  from  line  sources  requires  the 
greatest  amount  of  computer  time,  it  was  decided  to  reduce  the  large  number  of 
aircraft  line  sources.  In  the  original  model,  each  aircraft  type  is  assigned 
its  own  flight  path,  but  in  the  modified  model  a single  flight  path  for  each 
runway  based  on  weighted  average  parameters  of  all  aircraft  actually  using 
the  runway  is  established.  The  numerical  value  of  the  emissions  by  operational 
mode,  remain  identical  to  those  in  the  original  version. 

The  methodology  of  simplification  is  summarized  as  follows: 

• Approach,  Phase  I - This  is  the  longest  portion  of  the 
arrival  path  and  consists  of  a straight  line  segment 
extending  from  an  altitude  of  about  1000  meters  to  an 
altitude  of  approximately  300  meters.  Computations 
indicate  that  dispersion  calculations  involving  these 
line  segments  are  the  most  time  consuming  of  all  air- 
craft sources.  In  addition,  previous  experience  has 
suggested  that  air  pollution  contributions  coming  from 
such  line  sources  are  negligible  compared  to  other  air- 
craft related  sources.  Consequently,  in  the  Applications 
Model,  this  portion  is  eliminated. 

• Approach,  Phase  II  - This  portion  of  the  arrival  path 
consists  of  a straight  line  extending  from  an  altitude 
of  approximately  300  meters  to  the  touchdown  point  on 
the  runway.  In  the  Applications  Model,  this  portion  is 
represented  by  one  line  source  per  runway  with  the  spa- 
tial location  determined  by  taking  a weighted  average  of 
approach  parameters  of  those  aircraft  using  the  runway 
for  landings  and  touch-go  operations.  Emissions  are 
assumed  vo  be  uniformly  distributed  along  the  line. 
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binding  on  runway  - One  line  source  per  runway  is  generated 
and  it  is  assumed  that  all  aircraft  touch  down  304.8  meters 
from  the  end  of  the  runway  and  proceed  to  the  other  end. 
Emissions  are  given  a non-uniform  distribution  determined  by 
the  initial  and  final  speeds  which  are  taken  as  a weighted 
average  of  those  speeds  of  aircraft  actually  using  the  run- 
way for  landings. 

Touch-go  runway  operation  - One  per  runway  with  the  same  touch- 
down point  being  used  as  for  landing  on  runway  (so  that  the 
same  approach  path  can  be  used  for  touch- go  as  for  arrivals) . 
Aircraft  are  on  the  runway  for  304.8  meters  prior  to  lift-off 
and  a uniform  emission  density  is  assumed. 

Touch-go  departure,  Phase  I - This  operation  includes  the  time 
from  lift-off  the  runway  until  the  aircraft  has  climbed  to  an 
altitude  of  approximately  300  meters.  One  line  source  per  run- 
way is  used  for  this  operation  with  the  spatial  location  of 
the  end  points  taken  as  a weighted  average  of  the  Phase  I 
departure  parameters  of  those  aircraft  actually  making  touch- 
go  operations  on  the  runway.  The  emissions  are  assumed  to  be 
distributed  uniformly. 

Touch-go  departure,  Phase  II  - This  operation  has  been  elimi- 
nated for  reasons  similar  to  those  of  the  Phase  I approach. 

It  consisted  of  climbout  from  approximately  3C0  to  1000  meters. 

Hie  runway  roll  and  climbout  phases  of  a normal  aircraft 

r"  operation  (as  opposed  to  touch-go  climbouts)  are 
handled  independently  of  each  other.  The  clinibout  phases  in 
the  Research  Model  are  essentially  analogous  to  the  touch-go 
climbout  except  they  occur  at  a different  location  in  space. 

The  Runway  Roll  is  the  operation  whereby  the  aircraft  accele- 
rates down  the  runway  until  gaining  sufficient  lift  to  become 
airborne . 

Runway  Roll  If  more  than  one  aircraft  type  uses  a runway, 
two  runway  roll  line  sources  are  defined  for  each  runway  unless 
all  the  aircraft  using  the  runway  have,  within  ten  percent,  the 
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same  roll  distance  in  which  case  only  one  line  geometry  is 
defined.  In  either  case,  the  runway  roll  line  source 
length (s)  is  taken  to  be  the  weighted  average  of  the  roll 
distances  of  those  aircraft  using  the  runway.  Runway  roll 
line  sources  have  non-uniform  emission  densities  determined 
by  the  initial  and  final  weighted  velocities,  i.e.,  lift-off 
velocity. 

• Climbout,  Phase  II  has  been  eliminated  (see  remarks  under 
touch- go  departure  Phase  II). 

• Climbout,  Phase  I consists  of  either  one  or  two  uniform  emis- 
sion density  line  sources  for  each  runway.  If  the  difference 
between  the  maximum  and  minimum  Phase  I climbout  angles,  for 
aircraft  using  a runway,  is  greater  than  10°  then  two  distinct 
limits  on  line  sources  are  defined.  Otherwise,  only  one  is 
used.  If  two  sources  are  generated,  the  class  decision  cri- 
terion is  whether  or  not  the  aircraft  climbout  Phase  I angle 
lies  in  the  lower  or  upper  half  of  the  range  of  climbout  angles 
for  that  runway. 

Comparisons  made  by  running  both  versions  with  representative  near 
and  far  receptors  showed  clearly  that  the  differences  in  calculated  concentra- 
tions were  very  small. 

Table  2 contains  a list  of  the  three  routines  modified  or  added 
to  create  the  Applications  Model.  A brief  description  is  gi,en  but  a more 
detailed  account  of  each  routine,  together  with  flow  charts  and  computer  code 
listings  are  given  on  the  following  pages.  Figure  2 presents  the  schema- 
tic flow  diagram  of  the  entire  Applications  Model. 
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TABLE  2.  LIST  OF  SUBROUTINES  MODIFIED  OR  ADDED  TO  THE 
LONG-TERM  EMISSION/DISPERSION  MODEL  TO  CREATE 
THE  APPLICATION  MODEL 


SUBROUTINE 

ASCRCE 


FLTPTH 

TODIST 


DESCRIPTION 


Set  up  the  aircraft  source  arrays  and 
allocate  emissions  to  areas  and/or 
lines. 

Set  up  the  flight  path  parameters  for 
each  runway. 

Set  up  the  takeoff  roll  distances  on 
each  runway. 
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Purpose: 


Input : 


Output: 


Subroutines 

Called: 


SUBROUTINE  ACSRCE 
(Applications  Model) 


To  set  up  the  aircraft  source  arrays  to  be  used  by  the 
dispersion  routines  for  calculating  ground  level  con- 
centrations. In  this  version,  a single  flight  path  for 
each  runway  is  established  based  on  weighted  average 
parameters  of  all  the  aircraft  actually  using  the  runway. 


Basic  aircraft  data,  airbase  activity  data,  points  in 
arrival -departure  paths  and  in  training  flight  paths, 
meteorological  conditions,  and  the  time  period  of  the 
calculation. 


The  arrays  ACPT,  ACLN  and  ACAR  will  contain  all  source 
information  necessary  to  calculate  dispersion  and 
pollutant  concentrations. 


DEPART , FLTP1H,  TOD I ST 
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SUBROUTINE  ACSRCE  (Cont'd 
(APPLICATIONS  MODEL) 


SET  roi K 3 li  K >V.7\  I'OINT  FOR 
TOUU 1 AND  NO  OPERATIONS 
TO  THAT  USED  FOR  LANDING 
ON  RUNWAY  SO  TI IAT  11  IE 
SAME  APFROAG I PATH  CAN  BI 
USED  AS  FOR  ARRIVALS. 


BENIN  L(X)P  OYER  J INBOUND  TAXI  WAYS 


AIRCRAFT 

ARRIVINC 


BENIN  LOOP  OYER  K TAX  I KAY  SEGMENT 


SET  IJP  SECMINT  LIN! 
SOURG;  (TOO TRIES 


ALLOCATE  A I RCRAFT  INBOUND 
TAXIING  POLLITANT  EMISSIONS 
^ AITROPRIAIT  SE  IT  PINTS 


I SITE  RM I NT  AIRCRAFT  INIBXWD 
PARETNN  AREA  ASSOCIATED 
■'■HU  TAXI  KAY  PATH 
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SUBROUTINI  ACSRCL  (Cant'd.) 
(APPLICATION'S  MOUIT.) 


At.aMJUTl  IDLi.iri  ANT  LMISSIONS  OP 
ALL  A I RCRAIT  AND  ALI/XIATM  TO  Tin: 

•l  LIM  SOURCES  ON  Till.  RUNWAY 


END  AIRCRAJT  LOOP 


ELGIN  LOOP  OVER  ,J  OUTBOUND  TAX  I WAY 


AIRCRAJT 
DP PART INC 


BPCIN  IOOP  OVER  K TAX  I WAY  SEGMENTS 


SLT  UP  SEGMENT  LINT 
SOURCE  GEOMETRI  ES 


■VI  LX 'A  IT  AIRCRA1T  INBOUND 
I \X I IN  po!  UTANT  LMISSIONS 
T AP;  N I,’  0 I i>1R\TS 


IMi  TAX  I WAY  S[  CENT  LOOP 


ULIERMIM  A I IT  RAF!  iXITBOUND 
PARKING  AREA  ANNOTATED 
Win  I TAX  I WAY  PATH 


SUBROUTINE  ACSRG.  (Cont'd.j 
(APPLICATIONS  MODEL) 


* 


— 1 


Or:  n r,  r',  n C) 


I 


FRCGPAM  ACS  SC  F 
3UBRCUT1N  E ACSPCE 

THIS  ROUTINE  SEIS  'IP  THt  AIRCRAFT  SOU  BCE  ARRAYS 
A AC  AIICCATES  THE  POLLUTANT  EMISSIONS  TO  Tti£ 
AFPPCIBIATE  A PEA  CP  LINF 

THIS  VERSION  OE  ACSPCE  HAS  HEFN  MODIE'IEU  EOP  USE 
IN  THE  APILICATIONS  MODEL  OE  THE  EONS  TEP.M 
EMISSION/ DISPERSION  CODE 


PFAL  INCSPD 
INTEGEP  ENGMC 

CCMMCN  /RFCP./  MB EC PT , MA X F I L 

CCMMCN  / S PC E/  NPLTS  , NE  NPT  , NENAB,  NENLN,  N AHPT  , N 


N ADEN , NACP' 


• /.-IV-*-/  , 11  I-  t i , .1  o n n f n 1'  , n n ^ c x , n u n n 4J  i,  n v.  t . , 

i , NACLN, ENPT ( 1 fa,  100)  , EN AR ( 1 1 , 1 00 ) , E NLN ( 1 4 , 20)  ,ABIT{1b,150)  , 

r 1 1 Hill  a a I ki  / 1 I,  1 Ifti  » / - r-i  n / 1 L.  1.  ■ , * -t  1 > , » . - . . / i , 


D I S ft  N W ( 6 ) , I 
AC  S I 11(H)  , 

I I HS  EG  (16, 
IOPSEG (16, 


" „ - ..  . . V ’ ~ ~ - J f V \ , *V|  V'V-,  I J , 

. ARAB  (1  1 , 10C)  , A BLN ( 1 4 , 1 70 ) , ACPI  (1b,  1)  , A 4.  A ft  ( 1 1 , 2 4 ) , AC  E N ( 1 d , 2 S 0) 
COMMON  /ACECE 1/  ACEMFC  (3  , 10,6)  , A SC  NT  1 (b)  , ASCN12  (6)  , TXISPD  (b)  , 

. LNDSPD(H)  , APSPC1  (8)  ,APSPr2(8)  ,COH11  (8)  ,TOSPD(b)  , COS  PD  1 (8)  , 

. CUSFD2  («)  , SI. TUFT  (8)  , DSCNT  1(8)  , EGCHKT  (8)  , ShTDNT  (b)  , DSCNT2  (b)  , 

. APFHT,  APPHT*  (8)  ,CLHB  fiT#TCWT(8)  , ENG  NO  (8,2) 

CCMMCN  /ACECE 2/  N A CT  Y P , NR  N WY  S , NPK  A ft  , I EGE  LG , I A C 1 Y F (3 ) ,ANNAPP  (b)  , 

. ANN  CEP  (H)  , AN  NTSC (S)  , APPFCN(24, b, 6)  , DEPFCN ( /4, d, 6)  , TGo  (3,4,8), 

. CISftNV)  (6)  , PNWY  (7,6)  , IUSKD  (20,o)  , ACEHEL  (3)  , ABEDV1  (b)  , DPFLVT  (8)  , 

. ACST I L (8)  , Ai S V FM (6 ,8  ,5)  , DPSV  EM (6, 8, S) , NI BIT  <b)  , NIBSEG  (8,6)  , 

. I I BSEG  (1 6,  8, 6)  , IDI BT»  (8 , b)  , I T A ft E S ( 8 , 8 , 6 ) , NOBTT  (b)  , NUBS  EG  (b,  6)  , 

, IOPSEG ( 16, 8,6)  ,1081k  (8,6)  , TT DPE R (8 , 8 , 6 ) , NftASU  (o)  , I DP  ft K A (6)  , 

. FA  EE  A (b,  3 , 3)  ,1  Cl  8 PA  (8,6)  ,ID0BPA(8,b)  , N ES EG S, ACLNSG (1^,28)  ,JES1  (d) 
COMMON  / ME!  / XS , XS.M  PH  , I W S , k D , I X D , 31  NE '« D ,C  OSF X D,  J S T A b,  H L I D,  T F.M  E , 

1 T E M K 

COMMON  / DEFALT  / I TA  P E , AC  LNDY  , AC  LNIU  , ALPH  A ( 7)  , B ET  A ( 7)  , ELD  EN  S ( 7) 
CCMMCN  /PST  P PT/  AC  MO  ( 1 3,8)  , AC  D Y ( 2 , d)  , AC  H B (/  4 , 8 ) , V ii  tl  EM  0 ( 1 3)  , 

. VHMLDY  (2)  , VBMLHK  (24)  , CV AENO( 1 3)  , CVAbDY  (2)  , CVABH8  (24)  ,CVENMO  (1 3) , 

. CVENCY  (2)  ,CY  ENHR ( 24)  , FI.MO  (1  3, 7)  , E L D Y ( 2 , 7 ) , E LH  R ( 2 4 , 7)  ,NC1 
CCMMCN  /FEPIi.C/  IHO  ,Nr>rAYS,lDY  , 1 H B 1 , 1 rt  h 2 , I FE  AG , J r L AG 
CCMMCN  /MOD ST  M/  N p B L , NCOF , TST , DI S A , R DP ( 6)  , ft AE  ( o)  , ft TG ( 0)  , 

. HT  APF  (6)  , HUGH  (6)  , VFLIND  (o)  , VELTX1  (6)  , ANGAPP  (o)  , ANGTGO  (6)  , 

. D I ST  (2,6)  , TOPT  (2,6)  ,ftftTO(2,b)  , pftTXl  (2,6),  liTCC  (2,  o)  , ANGCO  (2,6) 

. , E RAC  (8) 

DIMENSION  lACAft  (2,  Id)  , PAR EC  1(18)  , A L Aft  SO  (o,  1)  , NO  (25) 

XF (XC , YC  , K)  = yc»  SIN  (7)  «XO 

YP  (YC,YC,V)  = YC*COS(X)  ♦ YO 

DAY3=NCDAYS 

NT=N{LTS+5 

IWI ND  = 29* I XC 

AN  IFIAG  OF  0 MEANS  THAT  ALL  AIRCRAFT  SOURCES  EXCEPT 
ECh  RUNWAY  RCLL  AND  C 1 1 MB OUT  MODES  1 AND  2 REMAIN 
UNCHANGED 

IE  (IFIAG. F 2.0)  GO  TO  6 9 

BEAD  AftftECN  AND  CEPECN  FPOr  TAPE 

IF  (IkC.GE.  1 . AND. IXD. LE. MAXFIL)  GO  To  1000 
PRINT  9CC0,  MPECPT.MAX  EIL,  IViD 
9C0C  FORMAT  (29H0FILE  REQUFST  ERROR  IN  ACSRCE,3I5> 

GC  TC  1040 

1C00  IE  (HRECPT-IWC)  1013,1030,1026 
1010  BEAD  (30) 

MPECFT=HBFCFT+1 


PARECT  ( 18)  , Aft  Aft. SO  (o  , 3)  , NO  (25) 


ACSRCOO^ 
AC3PC00 1 
AC  SRCOO  2 
ACSPCOC  3 
ACS  RCOOa 
AC SRCOO1 
ACSRCOOb 
ACSRCQ67 
ACSPCCO* 
ACSRC009 

acspco  ir 

AC  S R CO  1 1 

ACSPC01. 
ACSP'I  l 3 
ACS  PCD  1-4 
ACS  PCD  IS 
ACSPCO  1 ( 
A C s R c C 1 7 
ACSRC01  ? 
ACS R CO  19 
ACSPCO 2' 
ACSRC021 
ACS  RC  0 2 4 
AC3RC02  1 
ACSPCD2U 
AC  S PC ^25 
ACSPCO 2b 
AC  S PC  0 2 7 
AC  SRC  02 8 
ACS  PCC  29 
ACSPCO 30 
ACSRCO 3 1 
ACSPCO  3 2 
ACSPCO  3 3 
ACSRCO 34 

ACSRCO  35 
ACSRCO 36 
ACSRCO 37 
ACSPCO  38 
ACSRCO  39 
ACSRC74'1 
A C S R C 0 4 1 

ACSPCO 4 2 
ACSRC04  3 
AC S PC 04  4 
AC  S PC  Da  S 
ACS PC046 
ACSPC0U7 
ACSPCO 48 
ACSRC049 
A C S P C 0 c G 

ACSRCC5  1 
ACSRCOS 2 
ACSRCOS  3 
A C S P C 0 5 4 
ACS  RCOSS 
AC  SRCOSb 
ACSPCO S 7 
ACSPC0S8 
AC  S PC  OS  9 
ACSPC060 
AC  RRCnb  1 


T AVffllABLt  COPY 


n r. 


GC  TC  ICOf 
10  20  BEWINL  30 
9 B K C F T = 1 

i!C  TC  1C00 

1C  10  PfcAU  < 30)  ATTFCN,DFPFCN 
“BFC  FT  - (*.  R FC  f 1»  1 
10u0  CCNTINUF 
C 

Ft  B BACH  A I T CF  AFT  TYPF  CurpTTF  F R Ac  USING  TLflloBAL 
v.  DISTRIBUTION  ARRAYS  FCB  A TFCT  AFT  ACTIVITY 

C 

NliI  = IHR2 

IF  (IHB1.GT.IHR2)  N II I " 2 4 ♦ I H R 2 
H F 5 - NHI-IHR  1 + 1 
CC  S I=1,NACTYE' 

HBF  PC  = 0. 

LC  4 JJ-IHR1.NHI 
J- J J 

I f (J J . GT. 24)  J = JJ- 24 
» HEFFC-HBFRC*ACHR  (J , I) 

FRFBC=HBFSC/HPS 

FT  AC  (I,  A C .1  (IB  , I)  *ACEY  (ICY  , I)  *HBFBC*7. 0/D  A V * (1  . £ + 6/1. 6) 
*•  CCNTIN’UF 

C 

CALL  TL1FTH  TC  DETEHHI N E WEIGHTED  AVthAGE  VELOCIIIES,  ANGLES 
AND  AT  I III  C ES  OF  ALL  AIBCBAFT  TYPES  USING  EACH  RUNWAY 

CALL  FLIFTH 
B N A C F T = 0 
NF  = C 
NC  -0 
NZ  = G 

c 

S FT  UF  j/'ARr  A R F A SOURCES  DUE  10  AIRChAFT  PARKING  AREAS 

C 

l C 1 L-1, NFKAB 

NSv--  NF  ASC  IL) 

SI  AT  SC-O. 0 
DC  2 .1-  1 , NSC 
N p = N F ♦ 1 

ACA  R ( 1 , N"!  -FAREA(L,J,  1) 

A CAE  (2,  Ml)  - FAFF  A (L,.T,  2) 

AcA?  (J, NP)  ACT  SDZ/2. 

A c A 3 (4,NP)  = FAREA  (L,.l,  3)  * 1000. 

A ; - r . fl  , ,0  - ACA  r (4  , NR)  *♦  2 

IB  v SPA.'SQ  » A F .A  S C ( L , .1 ) 

ACA  r (S, Nb)  "ACLNTZ 
I AC  AT  (1  , NP) =ICFPK A (L) 

2 IACAT  { 2 , N P ) -NSG 
DC  91  J = 1 , N S C 

N Z = N Z ♦ 1 

91  FAPFCT(NO)  = APARSO(I.J)  / SPABSO 
1 C C S'  T I HUE 

L 

DC  9 3 I - 1 , N LSFG S 
93  N C ( I ) - C 
N F K S ?C  = N S 
DC  3 L=1,NFKSRC 
DC  3 K ~ 6 , N T 

3 ACAR  (K,L)  -0.0 

T V P - E X F ( A L ?H  A ( 2)  -BETA  (2)  /TEAK ) 

C 


AC  S RC  06  2 
ACSPC06  3 
ACSRC064 
ACSRCObS 
AC  5PC066 
ACS  PC067 
AC  5PC06R 
ACSRC069 
ACSPC070 
ACSRC07  1 
ACSPC072 
AC5PC073 
ACS  PCO  7 4 
ACSBC07S 
ACSPC076 
AC  SRC  07 7 
ACSRC07d 
ACSPC079 
ACSPCOdO 
ACSPCC9  1 
ACSFC092 
ACS  RCOf)  3 
ACSRCD84 
AC3PC0H5 
ACSPCOdb 
ACS  PCOd  7 
Acsscooa 
ACSPC089 
AC  S RC79  0 
ACSRC09 1 
AC  S PC 09  2 
ACSFC09 3 
ACSRC094 
ACSPC09S 
AC  S PC 096 
ACSRC097 
ACSRC09S 
AC 

AC  SRC  ICO 

AC  S PC  10  1 
ACS  PC  10  2 
A C S P C 1 0 3 
ACS PC  104 
ACS  PC  ID  5 
ACSFC 106 
AC3BC  107 
AC  SRC  108 
ACSPC 109 
ACSPC110 
ACS  RC 1 1 1 
AC3BC 1 1 2 
AC'S  PC  1 1 3 
ACSPC  1 1 4 
ACSPC  1 IS 
Acs»n  lb 
ACS  PCI  17 
ACS  PCI  19 
ACSPC  1 1 9 
AC S RC 1 2 0 
ACSPC 12 1 
ACS  PC  12  2 
ACSFC12  3 


2b 


C BEGIN  LOOP  OAER  N RUNWAYS 

C 

DC  10  N=1,NPN»YS 
C 

C IS  NUM.AY  UGEC  W 1 1 H THIS  WIND  D I SECT  ION  ? 

o 

IF  (I  US  HD  II  ’Hi),  N)  . E'J.O)  TO  TO  10 
C 

C Sir  TOUCHDOWN  roni  FOB  TOUCH  AND  GC  OPERATIONS 
C TC  THAT  USED  FCF  LANDING  ON  PUtiWAY  30  1 HA  1 THE 
C 3 A N F AKROACH  PATH  CAN  BE  USED  Aj  FOB  ARRIVALS 
C 

THFTA-FN.Y  (0, N) 

XC*r.3045*SIS  (THETA)  ♦ R N •'  Y (2,N) 

YC»C.JO«ri*CCl  ( T !C  E T A ) ♦ P N « Y ( 3,  V) 

NT  T * N I BT  I (N) 

IF  (NTT.FJ.3)  00  TO  SO 
C 

0 BEGIN  L CO F C ' F F J INBCUNC  TAXIWAYS 

t 

DC  11  J 1 1 , N TT 
C 

(.  ANY  AI8CRAFI  ARRIVING  ON  THIS  NUN. AY? 

C 

CO  7 I=1,NALTYP 

IF  (TTAFFP  (J. J ,N) * A P H FCN (2 3 , I , N)  .GT.O.C)  00  TO  701 
7 CCNTINllF 
GC  TC  1 1 

7 C 1 NSOLNS  * NIESRC,  (.1  , N) 

c 

C BEGIN  icnr  0 V E H K TAXIWAY  SEGMENTS 

C 

DC  12  K-1, NS  LNJ 
C 

C SET  U F SEOHFST  DINE  SOURCE  GEOMETRIES 

(' 

JJ  = I IBS  EC.  (K,  J , N) 

IF  (NO  (JJ)  . N E. 0)  GO  TO  1 1C 
NC * NC ♦ 1 
nc  (JJ)  “No- 
ne 1 t 1 1-1,1.! 

1,1  ACLN(l.NC)  * ACl  NSG  (L  , ,)  J) 

AC  D N ( 9 , NC)  * 1 . C 
AC L N (10, NC) *1,0 

0 

C AllCCATE  ATHCPAFT  INBCUND  TAXIING  PODDUTANT  EMTJJIONS 

0 1C  AFEHCPFIA  F StGFIENTS 

C 

CC  13  1*1 , N ruts 
L l*  D ♦ 1 2 

13  ACIN  (ll,NC) *t,0 
130  NC“NC(JJ) 

DC  IN  I * 1 , N ACT  YP 
AA*ENC. NC  (I  ,1) 

If  (If GriG.Gl. C)  A A “ EN  GNO  ( I ,2) 
ARN=TTAPFF(J,I,N|«ARPFCN(23, I , N)  *ANNA  PR  (I  ) 

If  (APR.LK.O.U)GJ  TO  14 

TIMF.*ACLN  (1  1 , ND) / ( I X I SfO  ( I ) * A CL  N 3G ( 4 , J J ) ) 
FHC“AA*AHH*T; HE*FRAC  ( I ) 

DC  15  L*1,NPl.TS 
KK*l»  12 

15  ACLN  (KK,ND)  “AOLN  (KK  , NC)  *FH0'*ACS!1FC  (I  ,2,1) 


I 


| 


AC  S PC  1 2 4 
ACS  NC  1 2 5 
ACSPC126 
ACS  PC  1 2’’ 
ACS«C  12B 
ACSPC129 
ACSPC1 30 
AC  S PC  1 3 1 

(..urn; 

A C S H C 1 i 3 
A C S S C 1 3 4 
A C P PC  1 1 c 
ACEPC1  35 
AC  3P01  37 
ACSPC1 39 
AOS’CI  37 
ACSPC147 
AC  E PCI  4 1 
AOSPC  142 
ACSPC 1 4 3 
ACSPC144 
ACSPC14S 
ACS  PC  1 45 
AC  SPC  147 
AC  S PC  1 4 9 
ACS  NC  149 
ACSPC  150 
ACSRC1S1 
ACSPC  152 
ACSPC  IS  i 
AC3PC1S4 
ACSPC1SS 
ACSPC1SS 
ACSPC157 
ACSPC1S  3 
A C S R C 1 S 9 
ACSPC150 
ACSPC  15 1 
ACSPC  152 
ACSPCIb  3 
ACSPC1b4 
ACSPC16S 
ACSPC  15b 
ACSRCIi.7 
AC  S PC  1 h « 
ACSPC169 
AC  SRC  170 
ACS  RC  17  1 
AC  SRC  172 
ACSPC  17  ^ 
ACSPC  174 
AC  S PC  1 7 S 
ACSPC  175 
ACSPC  177 
ACSPC 1 7 H 
ACSPC  179 
ACSPC  ISO 
ACSPC  H ’ 
AC  SB'.  IP  2 
ACSPC1P3 
ACSRf-194 
ACSRC1HS 


i 
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14 

CONTINUE 

ACS  PC  186 

w 

CCSIT  NtJF. 

ACSPC  187 

L 

ACS  PC  1 88 

C 

END  TAXIWAY  SEGMFNT  LCCP 

AC  S PC  189 

(» 

ACSIC190 

c 

ACSPC19  1 

c 

OFTEN  BINE  AIRCRAFT  INECUND  PARKING  AREA 

AC  S PC  1 92 

c 

ASSOCIATED  WITH  I A X I W A ¥ PATH 

ACS  PC  19  1 

c 

ACSPC  194 

LC  16  I=1fNPKSRC 

AC  SRC  1 9 5 

F-« 

II 

ACS  RC  146 

IDEK=IACAP  (1,1) 

AC  S PC  1 9 7 

IF (ICFK. F&.  IDIDPA <J,N)  ) GO  TO  17 

ACSPC  1 98 

1 1 

CCNTI  N'JE 

ACSBC  199 

PRINT  16,  IDI PP A (J , N)  , J,N 

ACSPC200 

1R 

FCFMAT  ( *CI  NSC'JNC  PARKING  AREA  '13, 'OF  T A XI  W A ¥ = ' I 3 , ' ; PUNWAY  = 'I3, 

• ACS  PC  20  1 

1 IS  NCT  CCNSISI ANT  WITH  PARKING  AREA  ID  NUMBERS') 

AC  SRC 20 2 

STOP 

ACS  PC  20 3 

17 

CONTINUE 

ACSPC20U 

c 

ACSPC205 

c 

AILCCATt  ALL  AIRCRAFT  IDLE  AT  SHUTDOWN,  REFUELING, 

AC  SRC  20  6 

c 

ARRIVAL  FUEL  VENTING  AND  SERVICE  VEHICLE  EMISSIONS 

ACS  RC 207 

c. 

TC  APPRO PPI ATF  AREA 

ACSRC208 

c 

ACSPC209 

NS^-IACAR (2 , II) 

ACS  PC  2 10 

DC  19  1=1, NACTYP 

AC  S PC  2 1 1 

ARR  = TTARFR (J,I,N) * A F R F C N (23,1, N) * A N N A P h (I) 

ACSPC212 

IF (AFP. LE. 0.0)  GO  TO  19 

AC  SRC  2 1 3 

AA  = ENGNG  (1,1) 

ACS  PC  2 1 4 

IF  (IEGFLG.GT.C)  A A=  FN  GNO  ( 1 , 2) 

ACSPC215 

T I M F = S HI DNT (I) /60. 

ACSPC2 1 6 

FRC  = AA*ARR*TIHE*FRAC(  I) 

AC  S RC  2 17 

TVP=  EXP  (ALPHA  (JES1  (I)  ) - B FT  A < JES  1 (I)  ) / TEMK) 

ACSPC218 

DC  20  L = 1 , N S 0 

ACSPC219 

J J=I I ♦ L-1 

ACSPC220 

DC  il  K=1,NPLTS 

ACSPC221 

K K = K ♦ 5 

ACSPC222 

ACAR  (KK, JO)  =AC AR (KK , J J) ♦ F BC* A C EMFC  (I,  1 , K)  * PANFC’IJJ) 

ACSPC223 

A CAR  (KK,JJ)  =ACAR(KK,JJ)  ♦ (APSVEfl(K,I,1)  ♦ ARSVEM(K,I,2)  ♦ 

ACSPC2^4 

. APSVEM  (K,I,  3)  ♦ APSVFM  (K,  1,4)  ♦ ARSVEM (K,  I, 5)  ) * ARr  * FRAC(I) 

AC  SPC225 

. * PARFCT(.JJ) 

ACSPC226 

IF (K. EC. 2)  ACAF (KK , J J) =ACAF (K  K, J J) ♦ (0. 3*TVP*ACFUEL (I) *0. 5 

AC  S PC  2 27 

1/1000.  ♦ ACSPIL(l)  ♦ A RFLVT ( I)  ) » APR  * FLD EN S ( J ES 1 ( I ) ) * FFAC(I) 

ACSPC228 

. * FARFCT(JJ) 

ACSPC229 

2 1 

CCNTI  N'JE 

ACSFC230 

C N ~ I NIF 

ACS  FC  23  1 

1^ 

CCNIINOE 

ACSPC2  32 

1 1 

CCN1 INUE 

ACSPC233 

C 

ACSPC2  34 

C 

END  I NBCUND  TAXIWAY  LCCT 

ACSPC235 

C 

ACSPC236 

c 

ACSPC2  37 

c 

BEGIN  LCCI  OVER  I AIRCRAFT  USED 

ACSPC238 

c 

ACSPC239 

c 

ACSPC2U0 

c 

SET  UI  9 LINES  FOR  EACH  BUNWAY  USING  THE  WEIGHTED  AVERAGE 

AC  S PC  24  1 

c 

PARAMETERS  OF  ALL  AIRCRAFT  ASSIGNED  TO  THE  RUNWAY 

ACSFC242 

c 

ACSPC24  3 

DC  2 5 J = 1 , 4 

.ACSFC244 

J J=J ♦ NC 

ACS  PC  24  5 

DC  / 6 K= 1 , 1 H 

ACSPC246 

26  ACI.N  (K,  JJ)  =0.0 

ACSPC247 

, I 


AC  L N <3,JJ)  = ACLNCZ/2. 

ACL  N (4  , JJ)  = ACI  NUY 
ACLN  (5, JJ)  = ACL N CZ 
AC  L N (8,  JJ)  = ACL  N CZ/  2 . 

ACLN  (8, JJ) =1.0 
ACLN  (10, JJ)  =1.0 
lS  ACLN  ( 12, JJ)  =1.0 
C 

C LINE  1 - APPROACH,  PHASE  2 
C 

YAP=-RTAPP(N)/TAN(ANGAPP(N)) 

ACLN ( 1, NC* 1) =XP (XO,YAP, THETA) 

ACLN  (2 , NC* 1 )=YP  (YO,YAF,THFTA) 

ACLN  ( 3, NC  + 1)  =HTAPP  (N)  *100C.0 
ACLN  (fa,NC*1) = XO 
ACLN  (7, NC*  1)  =YO 

ACLN  ( 1 1 , NC ♦ 1 ) = H T AP P ( N ) /S I N ( AN  G AP P ( N)  ) 

ACLN ( 12, NC*  1) = ACLN  ( 1 1 , NC*  1)/ACLN (9,NC*1) 

C 

C LINE  2 - LANDING  ON  RUNWAY 
C 

YLN=CIShN»  ( N ) - 0.  30 'l 8 

ACLN  ( 1 , NC*2) = XO 

ACLN  (2  , NC ♦ 2 ) - Y C 

ACLN  (fa, NC *2)  = XP  (XO,YLN, THETA) 

ACLN  ( 7 , N C ♦ 2 ) -YP  (YO  ,YLN, THETA) 

ACLN  (9 , NC ♦ 2)  = VELLN  D (N) 

ACLN  (10,NC*2)=VELTXI (N) 

ACLN  (11, N C ♦ 2)  = YLN 

ACLN  (12, NC*2) =2. *YLN/  (VELLND(N)  +VELTXI (N)  ) 

C 

I LINE  3 - TOUCH  AND  GO  RUNWAY  OPERAIION 
C 

ACLN  ( 1, NC* 3)  =XC 
ACLN  ( 2 , N C * 3 ) "YC 

ACLN(b,NC*i) -XP  (XO,0.  3048, THETA) 

ACLN  (7, NC*  3) =YP  (YO,0.  304  8 , THETA) 

ACLN  ( 1 1,  NC*  3)  =0. 3048 

ACLN  (12, NC*  3) =0.  30 4 3/ ACLN  (9, NC* 3) 

C 

C LINE  4 - TOUCH  A N L JO  DEPARTURE,  PHASE  1 
C 

ACLN  ( 1 , NC*4)  = ACLN (fa , NC*3) 

ACLN  (2,NC*4) =ACLN  ( 7 , N C ♦ 3 ) 

YCOP  = 0. 304  8* HTTGO(N) /IAN (ANGTGO (N)  ) 

ACLN  (fa,  NC *4)  XP  (XO, YCOR, THETA) 

ACLN(7,NC*4) =YP(YO,YCCR, THETA) 

ACLN  (8,  NC *4)  = H T T G 0 (N)  * 100C .0 

ACLN  (11, NC* 4)  = H I TGO (N) /SIN  (ANGTGO  (N)  ) 

ACLN  ( 12,NC*4) =ACLN  (1 1 , NC*4)/ACLN (9, NC*4) 

C 

C CALCULATE  FUN  WAY  ARRIVALS  AND  TOUCH  AND  GO 
C OPERATIONS  FOR  FACII  AIRCRAFT  TYPE 
C 

DC  30  1=1 .NACTYP 
AA=ENGNC  (1,1) 

APR  = ARRECN  (23,1  ,N)  *ANNARR  (I) 

ATG  = AFRFCN  (23,1  ,N)  • A N NT GO  (I) 

ATCT=ARR* ATG 

IF  (ATCI. LE.r .0)  GO  TC  JO 

C 

C ACCUMULATE  POLLUTANT  EMISSIONS  OF  ALL  AIRCRAFT  AND 


ACSPC248 
ACSPC249 
AC'S  PC  250 
A C SRC  25  1 
ACS  RC252 
ACSRC25  3 
ACSRC254 
AC  S PC  255 
ACSRC25fa 
A C S 0 C 2 5 7 
AC5PC25  0 
ACS  RC  25  9 
ACSRC26  0 
AC SRC 26  1 
AC  S PC  26  2 
ACS  RC2fa  1 
ACSRC264 
AC  S P C 26  5 
ACS  PC  26  fa 
ACSPC26T 
ACSPC268 
ACSPC269 
ACSPC27C 
ACSPC27  1 
ACSPC272 
ACSPC27  3 
A C S R C 2 7 4 
ACSBC275 
ACSPC276 
A C S PC  27  7 
AC  SPC27  8 
ACSPC279 
ACSPC28D 
ACS  PC  28  1 
ACSFC2R2 
ACSPC28  3 
ACSFC28U 
ACSPC28C 
AC  SPC2Hb 
ACS  PC 287 
ACSPC283 
A C S B C 2 8 9 
ACSPC290 
AC  SRC  29  1 
ACS  PC  29  2 
ACSPC29 3 
ACSPC294 
A C S (•  C 2 9 5 
ACSPC29b 
AC  SRC  297 
ACSPC298 
ACSRC299 
ACSPC  300 
ACSPC  30  1 
ACSPC  30  2 
ACSPC  30  3 
ACSPC  304 
ACSPC  305 
ACSPC 30  fa 
ACSPC  307 
ACSPC  3 18 
ACSPC  30  9 
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n d 


ALLOCATE  TO  THE  4 LINE  SOURCES  CN  Hit  PUSUA' 

DC  31  J=1  ,4 
JJ  = J ♦ NC 

GC  IC  (33,3  3,37,34)  ,J 
32  JMCDE=8 

ACT-ATCT*ARHFCN  (12,  I , N ) * F F AC  (I)  • A A 
1 1 ME  = ABRFCN  (12, I, S) 

GC  TU  35 

3 3 IF  (APR. LE. 0.0)  GO  TO  31 
J MOCK  = 9 

ACT  = ARF*ARRFCN  ( 18, I ,N) *FRAC (1)  «AA 
GC  TC  35 

34  IF  (ATG.LE.O.C)  GO  TO  31 
J MOCK =5 

TGCT I M = 2 . * ( YCOP-.  304H )/  (COSPD1  (I)  *T08PD  ( I) ) 

ACT- ATG*rGOTIH* FPAC  ( I ) *A A 

35  DC  36  1 , N I LTS 

K K = K ♦ 1 2 

3b  ACLN  ( K K , J J ) = AC  L N (KK ,30)  ♦ ACT  * AC  tM  FC ( I, J M ODE, K ) 

GC  TC  31 

37  IF  (ATG.LE.O. 0)  GO  TO  31 

TIME  = 2.*ACLN(11,JJ)/(1.  3*  LNDSPD  ( I)  ♦ 0 . 7 * 10SP D ( I ) ) 
ACT=ATG*TIME*F3  AC (I)  ♦ A A 
DC  38  K=1,NELTS 
K K = K ♦ 12 

3 8 ACLN  (KK.JJ)  = ACLN (KK,JJ)  »ACT*  ( 0 , 3 * Ac'EM  FC  ( 1 , 9 , K ) *0.7* 
. ACE MFC  (1 , 4 , K) ) 

Jl  CONTINUE 

3 C CONTINUE 

NO- NC  + 4 
C 

C END  AIRCRAFT  LOOT 

C 

5 ( NTT- NCBIT  ( N ) 

IF  (NTT . EQ. 0)  GO  TO  10 

C 

C BFGIN  LOOP  CVEP  J OUTBOUND  TAXIWAYS 

C 

DC  51  J-1 , N IT 
C 

ANY  AIRCRAFT  PEPAbTING  ON  THIS  TAXI  WAY? 

C 

rc  b I = 1 , N A C T Y p 

IF  (TTDFFP  (J,  I , N)  *DEPPCN  (23, 1, N)  . GT. 0. 0)  GO  TO  601 

6 CONTINUE 
GC  TC  51 

bC  1 N'SGLNS-NOESFG  (J, N) 

C 

C BEGIN  LOOP  OVER  * TAXIWAY  SEGMENTS 

C 

DC  5 i K=1,NSGLN 
C 

C SET  UP  SEGMENT  LINE  SOURCE  GEOMETRIES 

C 

JJ  = IC0SEG  (K  , J , N) 

IF  (NQ  (JJ)  .NE.O)  GO  TO  131 
NC - NO* 1 
NO  (JJ)  - NC 
DC  122  L= 1,  12 

122  ACLN  <l,NC)  - ACLNSG (L,J J) 

ACLN (9, NC) = 1 . 0 


ACSPC  310 
ACSPC  31  1 
ACSPC  3 12 
ACSRC31  3 
ACSRC314 
ACSPC  315 
ACSPC  316 
ACSPC  317 
AC  S PC  3 1 8 
ACS  PC  31  9 
AC  S RC  320 
ACSPC 32  1 
ACSPC  322 
ACSRC323 
ACS  PC  324 
ACSPC  325 
ACSPC  326 
ACSPC327 
ACS  PC  328 
AC  SBC  32  9 
ACSPC  3 30 
ACSRC3  3 1 
AC  S PC  3 3 2 
ACSPC 33  3 
ACSPC 334 
ACSPC 335 
ACSPC 3 36 
ACSPC  337 
ACS  PC  3 38 
ACSPC  3 39 
ACSPC  34C 
ACSBC34  1 
ACSPC  342 
ACSPC  34  3 
ACSPC344 
ACSPC  34  5 
ACSFC  ’46 
ACSPC  34  7 
ACSPC  3*. 
ACSPC  34  9 
ACS  »C  350 
ACSPC  35  1 
ACSPC  352 
.ACSPC  35  3 
ACSPC  354 
ACS  PC  355 
AC  SRC  356 
ACSPC  357 
ACS  RC 358 
ACSPC359 
ACSPC  360 
ACS  RC  36  1 
ACSPC  36 2 
ACSPC 363 
ACSPC  364 
ACSPC 365 
ACSPC  366 
ACSPC  36  7 
ACSPC  366 
ACS  PC  36  4 
ACSPC  370 
ACSPC  37  1 
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ACIN(IO.NC)  1.0 

ACSRC  372 

c 

AC  5PC  37  3 

c 

A l LCCATE  AIRCRAFT  INRCUNT  TAXIIN;  POLLUIANI  tKISalONS 

ACSRC  37  4 

L 

1C  ATI FCPHI A" F SEGMENTS 

ACSRC  375 

c 

ACSRC  376 

DC  53  L=1,NFL1S 

AC  SRC  37  7 

11=1*12 

ACS  Of  374 

5 3 

AcLN  (U  , NC)  - C . 0 

ACSRC 3 7 . 

131 

NC- NO  (JJ) 

ACS r '34  0 

DC  54  I - 1 , N AC T* P 

3 ' ' . 351 

DEP  = TTCPFP  (J,  I , N)  *DEPFCN (2  3, I , S)  * AN  NDEP  <1 ) 

ACS  PC  3-3 . 

IF  (OFF.  IF  . 0.  ",)  :c  PC  54 

A ' -rC  3-3  3 

AA-FNGNO  (1,1) 

« C S R C 3 9 4 

I F ( It  U FLO. .G I . 0)  AA  EN  GNO (1,2) 

ACS  RC  3 3 5 

TIME-  ACLN (11, ND)  / TXI3PP(I) 

AC  5 F C 3 3 * 

EKC  = AA*  FEP*TI ME* FRAC  (I) 

ACSRC  35  7 

DC  55  l=1,NTLTS 

ACSRC  333 

K K = l ♦ 1 2 

A C S F C J 3 3 

55 

ACLN  ( K K , ND)  = A C L N ( K K , N L)  ♦ F PC  * A C E M PC  ( I , 2 , L) 

ACSRC 190 

54 

CONTINUE 

A C S CC  39  1 

5/ 

CCNTINUF 

ACSRC  33  2 

c 

ACSRC39 J 

c 

END  TAXIWAY  SEGMENT  LOOP 

ACSRC  39  4 

c 

AC  SRC  3 95 

c 

ACS  PC  ' IF 

c 

DETERMINE  AIRCRAFT  OUTECUND  PARKING  AREA  AD  SOC I AT  ED 

ACSRC  397 

L 

WITH  T A X I V A Y F A T H 

ACS  FC  3 94 

c 

ACSRC  39  9 

DC  r-b  I = 1 , N FK  SRC 

AC  S PC  40  0 

II  = I 

A C S R C 4 0 1 

TCPK=IACAP  (1,1) 

AC  S PCu 1 2 

IF  (IDFK.FO.  IPOEPA(J,Nj  ) GOTO  5ti 

ACS  RC 40  > 

5t) 

CCN'l INUF 

AC  SR  C4.04 

PRINT  57,  IDOEPA (J, N) , J,  N 

ACSRC**05 

5 7 

FORMAT (22  HO  CUT BOU N C PARKING  APEA,IJ,1lH  OF  TAaIhAY, I 5 , 4 H , 

RUNWAY, 

A C 1 C 4 0 6 

. 1 3 , 4 7 H 15  NOT  CONSISTENT  V.ITH  PARKING  AREA  ID  NUMBERS) 

ACSRC  u:J  7 

STOP 

A C S R C 4 1 4 

c 

AC  iK  4 C 9 

L 

ALLOCATE  ALL  AIRCRAFT  I D L F AT  SiARi'JP,  P E R A n T U n r.  FUEL 

AC  1 RC4 19 

L 

VENTING  AND  SERVICE  VFliICLE  EMISSIONS  TO  AIRROPHlATE  AREA 

A C ■ P C 4 1 1 

L 

ACSPC4  1 

6H 

NSC  = r ACAF  (2,11  ) 

ACSFC41 1 

DC  59  I=1,NACTY? 

AC  :pr*  1 14 

DEP=TTDPFP  (J  , T , N)  *DEPECN  (23,1,  N)  * AN  ND t P (I) 

AC  3RC4  15 

IE  (DEF.EC.0.0)  j()  TO  5y 

ACSFC4  It. 

A A = E NGNC (1,1) 

ACS  RC4 1 7 

IF (lEGFlG.GT.C)  AA- FNCNO  ( I ,2) 

A C 3 R C 4 1 4 

TIME-SRTUPT  (I) 

AC  S PC  4 1 9 

FRC  - AA*  DEP*  TIME  * FRAC(I) 

ACSRC 420 

TVP=EXF  (ALPHA  (JES1  (I)  ) - B ET  A ( J E5  1 ( I ) ) / Tt.lK) 

ACSRC42 1 

LC  6 0 L= 1 , N SQ 

A^  3 “i  4 2 ' 

JJ  =-11  *1.-1 

ACSPC42 3 

DC  fc 1 K= 1 , NI LTS 

AC  S PC  4 2 4 

KK=  K *5 

ACSPf425 

ACAF  (KK,JJ)  - ACAP  (KK,JJ)  ♦ ((PRC  ♦ A C EM  EC ( I , 1 , K)  ) ♦ 

ACS»c  426 

. ( (DF  FVEM  (K,  I , 1)  ♦ I.PSVEM  ( K , 1,2)  ♦ JPSV  EM  (R  , I , ) ) ♦ UPSV5M(K,1,4) 

AC:'.  RC4  27 

. ♦ CFSVEM  (K, 1,5) ) * DEP  * FRAC  (I)))  ♦ PAnFcT(JJ) 

ACSPC420 

IE  (K.E0.2)  ACAR(KR.JJ)  = ACAR(KK,JJ)  ♦ DPEt-VT(I)  • DEP  * 

FLEE  No ( 

AC  '.PC4  2 4 

. J E S 1 ( I ) ) * F t A C ( I ) * I A P E CT  ( J J ) 

AC  SRC  4 i 0 

6 1 

CONTINUE 

AC  SRC 4 3 1 

bC 

CCNTINUF 

ACSRC432 

59 

CONTINUE 

AC  SRi  4 3 3 

l : 


S 1 

C(  NTT  SUfc 

AC3PC4  14 

C‘ 

ACSPC4  3S 

c 

h N L'  CUT  BOON  C 'TAXI'J»Y  LOOP 

ACSRC416 

t 

ACSPC4  17 

Nt)=  Nh*  1 

ACSRC4  3H 

<- 

ACSRC4 19 

c 

Shi  UT  A R F A SOURCE  AT  TAIL  OF  RUNWAY  A N L ALLOCATE 

ACSFC44  0 

c 

ENGINE  CHECK  18  I GS IONS  ro  IT 

ACS  PC44 1 

( 

ACSPC44  2 

Ac  A F ( I , N H)  - HN  W Y (2,  N)  - . OS  » S T N (THETA) 

ACSRC44 1 

AcAR(2,NB)  - R N W Y ( I , N ) - .OS*  COS  (THETA) 

ACSRC444 

A C A t-  <1, NP) - ACLNL/,/2. 

ACSRC44S 

A C A F ( 4 , N H ) = 1 <j  0 . 0 

AC5FC446 

ACAi-  (3,  Nr-:(  ACL  N 1. 1. 

ACSRC447 

DC  US  K - 1 , N T L ’I  S 

ACSRC449 

K K - K ♦ S 

ACSPC449 

b C1 

ACAi  ( K K , Nf<)  =0.0 

A C : > P C 4 S 0 

D ( h b T=1,NACTYP 

ACSRC4S 1 

CFP=rEFFCN  (21,  I , N)  *ANNDEP(I) 

ACS  PC43  2 

11  (PL F.E..O.O)  10  TO  66 

ACSPC4S  1 

A A = h NGNO  (1,1) 

Ac  SRC4S4 

11  ( I EGFLG  .71.1.)  A A - IN  0 NO  ( I , 2) 

ACSFC4SS 

L I * 1 - EGCHKT  (I)  />M. 

ACSPC4S6 

ERc  = 71.81  * LFP* AA* FPAC ( I) 

AC3PC4S  7 

DC  b 7 K 1 , NLLT3 

ACS PC4S8 

K K - K ♦ S 

ACSPC4S9 

t 7 

ACAR  (KK,  NP)  = ACA.I  (K  K,  NP)  ♦ FRC*  «C  C MFC  ( I , 3 , K) 

ACSPC4R9 

6f 

CCNTI NOE 

ACSRC4b 1 

i > 

CC NT  I NUE 

ACSPC462 

c 

ACSPC46 1 

END  RUNWAY  I OOP 

ACSPC4b4 

c 

AC  SRC4uS 

SAC  Ah  ■ Nb 

ACS  PC466 

NCI  NC 

ACSRC46 7 

h ^ 

N L = N C 1 

ACS  0 C46  rt 

C 

AC  S PC4H  9 

C 

a i - is  lc  I : v:-  :<  n p :;n  cays 

ACS  PC470 

(.' 

ACSRC4 7 I 

DC  7 9 N - 1 , S '•  N W Y .> 

ACSPC4  7. 

c 

ACSPC47  1 

c 

IF  RUNWAY  USE!  » I T H THIS  WIND  UXliKCTIuN? 

ACSPC47y 

c 

ACSFC4 7S 

I E (I  L : CJ  (I  « t , N)  . 1 v.  ) <?0  TO  7 9 

ACSPC4  76 

X r = P N N Y < ? , N ) 

ACS  RC4  7 7 

Y C - b N V Y ( 1 , N ) 

AC.SPC47R 

I ETA-  V N • Y i 7 , N ) 

ACSFC479 

c 

ACSPC4S0 

c 

BfOIN  LCOI  o VFr  1 A I -CRAFT  USEU 

ACS  FC4H 1 

c 

ACSRC4H2 

CC  7 C I-A.NACTYP 

ACSPC44  3 

c 

ACS  PC  4 84 

c 

CALCULATE  PlIN'-AY  L t « A R T’J  B FS  FOR  EACH  AIRCRAFT  1YPE 

AC  S BC  4 9 S 

c 

ACSRC496 

DM  DEfECS  (23,1  ,N)  ♦ ANNtEP  (I) 

ACSRC4H7 

ACSPC499 

c 

ANY  A I NCR  AFT  I'M  ANTING  FRO'’  THIS  RUN  NAY? 

ACSFC499 

c 

AC  SEC 49  0 

IE  (DEF.fcy.o.O)  C.O  rn  7 0 

ACSFC49 1 

c 

ACSPC492 

L 

CALL  DEPART  TO  CALCULATE  POINTo  IN  TAKEOFF  PATH  ACCORDING 

ACSBC49  1 

c 

T l CURRENT  RET  F CRD  LOG  I C A I.  CONDITIONS 

ACS  PC  4 9 4 

c 

ACSPC44S 
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CALL  DEPART  ' N , I ) 

AC  S PC4  9h 

7C  CONTINUE 

ACSRCU97 

c 

ACS  PC 4 9 M 

L 

CALL  1CDIST  TC  CALCULATE  THE  WEIGHTED  AVERAuc. 

ACSPC499 

L 

HUNWAY  ROLL  PARAMETERS 

ACSRCS00 

C 

ACSPC SO 1 

CALL  TCDIST(N) 

ACSRC5U2 

c 

A C S P C S ^ j 

c 

SET  UT  THE  CL1MBCUT  AND  RUNWAY  BCLL  DINES  FOR  EACH 

AC SPCS*4 

L 

RUNWAY  USINC;  THE  WEIGHTED  AVERAGE  PARAMETERS  E'U. 

ACSPCSOS 

C 

ALL  A I hC  RAFT  ASSIGNED  TC  THE  PUNWAY 

ACSFCSOb 

c 

ACS  PCS  7 7 

NH  r = NC  C F*  NRRL 

ACSFCSOR 

DC  7S  J = 1 , N H r 

ACSPCS39 

JJ=J*NC 

a r s p c s i o 

CC  76  K-  1 , 1 r) 

ACS PCS1 1 

7o  ACL  N(K,JJ)=0.C 

ACS  PCS U 

AC  L N (3,JJ)  = Ai  LN  DE/2 . 

ACSr-cS  1 i 

AC  L N (4,JJ)  = ACLN  DY 

ACS  PCS  1 4 

ACLN  (5,  JJ)  = ACLNCZ 

»cst>csis 

ACLN  (8 , J J ) = ACLN DZ/2  . 

ACS  PCS  1 6 

ACLN  ( 9 , J .1 ) = 1.0 

ACS PCS  1 7 

7S  ACLN  (1C, JJ)  =1.0 

ACSPCS1P 

c 

ACS  PC S 1 9 

c 

CLIMB  CUT,  PHASE:  1 - A MAXIMUM  OF  2 LINES  ARE  CREAICJ 

ACSPCS20 

c 

ACSBCS? 1 

CC  77  J = 1 , N COP 

ACS  PCS 2 2 

J J = NC  ♦ J 

ACS  RCS  2 3 

ACLN  ( 1 , J J ) = X P (X  C , TO  FT  (J,N)  , THETA) 

ACSPCS24 

ACLN  ( 2 , J J)  = Y P ( YO,T<J?T  ( J,  N)  ,THEIA) 

ACSFCS2S 

YCCE  = TO  FT  ( J , N ) ♦ HTCO  ( J , N) /T AN ( A NuC 0 ( J , N)  ) 

ACSPCS2R 

ACLN  (fc  ,JJ)  = XI  (XO.YCOP  , I II  FT  A) 

ACS  PCS 27 

ACLN  (7,  JJ)  - Y I (YC.YCCR  , I HET  A) 

ACSRCS28 

ACLN  (8, JJ)  = RTCO  (J,N) *10CC. m 

AC  S PCS  29 

ACLN  (1  1 , JJ)  = HTCO  ( J,  M/S  I N (A  NGCu  (J,  N)  ) 

AC  S PC  TC 

77  ACLN  (12, JJ)  = ACLN  ( 1 1 , JJ) /ACLN  (9, JJ) 

AC  SPY'S  T 1 

c 

ACS  res  32 

c 

RUNWAY  BCLL  - A MAXIMUM  OF  2 LINES  ARE  CREATED 

A. 'SBC  ST  T 

e 

AC  S PC  5 1 4 

DC  7 8 J= 1 , NRRL 

AC  SPf'S  35 

JJ  = NC ♦ NCOP ♦ J 

AC  1PCST6 

ACLN  (1  , JJ)  = XU 

ACS  PCS  3 7 

ACLN  (2,  JJ)  = Y C 

ACS RCS TP 

ACLN  (6,  JJ)  = XP  (XO,  D 1ST  (J  , N)  , THETA) 

ACSPC S <9 

ACLN  (7,  JJ)  = YP  (YO , DT  ST (J  , N)  , THE  T A) 

ACSPCS40 

ACt  N (9, JJ)  = f RTXI  (J, N) 

ACS  PC 54 1 

ACLN  (1C,JJ)  = PRTO  (J,  N) 

ACS  PC  54  2 

ACLN  (1 1 , J J)  = DIST (J, N) 

ACSPCS4 T 

7 H ACLN  (12, JJ)  = 2. *DIST  (J,N) /(PR IXI  (J, N) *PRTu  (J, N)  ) 

A C S F C S 4 4 

c 

ACSRCS4S 

c 

ACCUMULATE  POLIt'lANT  EMISJICNS  OF  ALL  A1BCRAEI  AND 

A o S p C S 4 S 

c 

ALLOCATE  TO  THE  CLIMUOUT  AND  RUNWAY  ROLL  LINE  SOURCES 

ACSPC S 47 

c 

AC  ; P 0 S 4 9 

LC  HC  I = 1 , N ACTYP 

ACSFC54 m 

LEP=DEFECN  (2  1,1  , N)  *ANNrEP(I) 

ACSPCSS0 

IE  (CEP. LE. 0.0)  GO  TO  80 

ACSPCSS 1 

A A = t NG  No  (I  , 1) 

ACS PCSSp 

LC  HI  1=1,2 

ACSPCSS T 

IE  (L. Ev. 2)  ' O TO  M2 

ACSPCSS4 

JMCCFrS 

AC  SPCSSS 

A CT  = A A • L F P * 0 E'  f F o'  N ( 12,  I ,N)  ♦ KPAC  (I  ) 

ACS 9CSSE 

J=  1 

ACSPCSS? 
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¥ 


IF  ( A SC  NT  1 (I)  .UI.TSr)  J=  2 

ACSRC99P 

JJ=  NC  *J 

ACSPC999 

c.c  rc  ej 

ACSRC960 

p 2 

J HOC  E - 4 

ACSPC96 1 

A L T = AA*Dl'F*DKPFCN  ( 6 , I,  N ) * F R A (X) 

AC  9 PC  96  2 

J - 1 

ACSPC96 1 

IF  (LEIFCN  (5,  i , N)  . r,1.  EISA)  J > 

ACSPC'964 

.IJi  KC  * KCOP+  J 

ACSRC969 

A 3 

DC  P9  K'1,NPlT9 

AC9PC566 

K A - K ♦ 1 2 

AC  9 RC9b  7 

o9 

AC  IN  (KK,  J.J)  - ALIN  (*K,  JJ)  ♦ACl*Ai.  iPlFC  (1,  JfKJDt,K) 

ACSRC968 

H 1 

CCN7I NLE 

AC  9 RC  96  9 

mO 

C C N T I NUE 

AC8PC970 

NC= KC ♦ NCO  F ♦ N P PL 

AC9PC57 1 

79 

CL  MI  N(Jfc 

AC  9 RC  9 7 2 

ACSPC97  3 

END  FllNUAY  ICCP 

ACSRC974 

ACSRC979 

N AC  L N = KC 

ACSPC976 

RETURN 

AC  5 PC 9 7 7 

FND 

AC  9 PC 9 7 8 

SUBROUTINE  FLTPHI 


Purpose: 


Input : 


Output: 


To  define  the  flight  path  parameters  for  all  runways. 

Aircraft  activity  data  on  all  runways. 

Weighted  average  values  of  aircraft  activity  on  the 
runways . 


Subroutines 

Called: 

none 
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X 


non  onno  non 


c 

c 

c 

c 


SUBFCUTINH  FLTPTH 

THIS  ECUTINE  CEFINES  THE  FLIGHT  PATH  PAEAKETE ES  FOE 
THE  APPLICATIONS  (10DEL 

PEAL  INLSPD 

COMMON  / ACEDB 1/  AC  EM FC  (8 , 1 0 , 6 ) , ASCNT1  (8)  , ASCNT2 (8 ) , I X IS  PD  ( 8)  , 

. INDEED  (8)  , APSFC1  (8)  , AFSPD2(8)  ,COHT1 (8)  ,T0SPD(8)  ,COSPD1  (6)  , 

. COSFD2  (8) , SETUP  i (8) , DSCN11 (8)  , EGCHKI (8)  , SKI DNT (8)  , DSCNT2 (8)  , 

. APFHT,APPHT^(8),CLMBF1,TCNT(8)  , ENG  NO  (8,2) 

CCHMCN  /ACEEE2/  H AC T Y P , NE NWYS , NPK AE , I EGFLG, IACTYP (8)  , ANNAKE  (8)  , 

. ANNDEP (8) , ANNTGO (8) ,ABRFCN(24,8,b) , DE PFC N (24 , 8 , 6) ,100(3,4,6) , 

. DISENW  (6)  , ENW  Y (7,6)  , IUSWD  (20 ,6)  , ACFUEL  (8)  , AEFLVT  (8)  , jPFLVI  (8)  , 

. ACSFIL  (8)  , ARSVSM (6 ,6 ,5) , DPS V EM (6 , 8, 5)  , NIBT1 (6)  , NIBS  EG (8,6)  , 

. IIBSEG(16,8,6),IDIBTW(8,6),TTARPE(8,8,6),N0BTT(6),NofiSEG(8,b), 

. IOBSEG  (16,8,6)  , 7DCBTN  (8,6)  ,TTDPFB(8, 6, 6)  , NPAS*  ( b)  , IDPEKA(6)  , 

. FAEE A (b, 3, 3)  ,ID1BPA(8.6)  ,ID0BPA(8,6)  , NLSEGS,ACLNSG  (1^,25)  ,JES1  (8) 
COMMCN  /HODSIM/  N ERL , NCOP, TST, DIS A , RDP (b ) , H AE (6 ) , ETG (6)  , 

1 HTAEF  (6)  ,HTTGO  (6)  , VELLNLi  (6)  , VELTXI  (6)  , ANGAPP  (b)  , ANGTGO  (6)  , 

2 LI ST (2, 6), TOFT (2, 6), BRIO (2, 6), RRTXI  (2, 6)  ,HTCG  (2,b)  ,ANGCC  (2,6)  , 

3 F B AC  (8) 

DIMENSION  HI  (2) 


INITIALIZE  ARRAYS 

DC  5 N=1,NRNHYS 
BLP  (N) =0. 0 
BAB  ( N) =U . 0 
PIG (N) =0. 0 
ANGAPP  (N) =0.0 
ANGTGC(N) =0.C 
HTAf  P (N) =0. 0 
HTTGC  (N) =C.  C 
VELINC  (N) =0.0 
V ELI  XI  (N) =0.0 

CCMFUIE  TOTAL  NUMBER  CF  TRAINING  FLIGhTS, 
CEEAR1UBES  ON  EACH  RUNNAY 

DC  5 1=1, NACTYP 
IF  (FEAC  (I)  . L2.0.0)  GO  TO  5 
BTG(N)=ETG(N)+AREFCN(23,I,N) *ANNTGO(I) 
BAF(N)=BAF(N)  + ARBFCN(23,I,N)*ANNAEE(1) 
RLP (N) =EDP (N) *DEPFCN (23,1, N) * ANNDEP  (I ) 

5 CONTINUE 


FTPTH000 
FT  PTHOO  1 
FTPTH002 
FTPTHOO 3 
FTPTH004 
FTPTH005 
FT  PTH006 
FT  PTH  007 
FTPTH008 
FTPTH009 
FTPTHC1C 
FTPTHO  1 1 
FTPTH012 
FTPTHC13 
FT  PTH 3 14 
FTPTHO 1 5 
FTPTH016 
FTPTHO  17 
FTPTHO 1 8 
FTPTH019 
FTPTH020 
FT  PTH  0 ^ 1 
FTPTH022 
FTPTH023 
FTPTH024 
FTPTH025 
FTPTH026 
FTPTH027 
FT  PTH028 
FTPTH029 
FTPTH030 
FTPTH031 
FTPTHO  32 
FTPTH03  3 
FTPTH034 
FTPTH035 

ARRIVALS  AND  FTPTHO  36 

FTPTHO  37 
FTPTH038 
FT  PT HO  39 
FTPTH040 
FTPTHC41 
FT  PTH  04  2 
FTP  TH  04  3 
FTPTH044 


BEGIN  RUNWAY  LOOP 

DC  10  N=1,NRNWYS 
DC  11  1=1, NACTYP 

IF  (ARPFCN  (23,1, N,  . LE. 0 .0)  GO  TO  11 
IF  (FRAC  (I)  . IE. 0. 3)  GO  TO  11 
A R R = 0 . 0 
ATG  = 0 . 0 
ACTT  = 0 . 0 

IF  (EAR  (N)  .LE.O.  O’,  GO  1C  6 
ARR=ARRFCN(23,I,N)  *ANNARR  (I)/FAR(N) 
ACT  I = ACTT ♦ 1 .0 

6 IF (RTG <N) . LE. C. 0.  GC  TC  7 
ATG=ARPFCN(23,I,N)*A  N NT  GO  (I)  / RIG  (N) 
ACTT  = ACTT  + 1 .0 

7 AC1=  (ARE*  ATG) /AC TT 


F T P TH  04  6 
FTPTH046 
FTPTH04  7 
FTPTH048 
FTP  TH  04  9 

FTPTH050 
FTPTH05  1 
FTPTH052 
FTPTH0S3 
FTPTHO- 4 
FTPTH055 
FT  PTH  056 
FTPTH057 
FTPTH058 
FTPTHC59 
FTPTHObO 
FTPTH06 1 
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nnoro  noon  n n n n n n n n n n non  no 


If  (ACT. LE. 0.0)  GO  TO  11 

C / 

C COMPUTE  WEIGHTEL  AVERAGE  VALUES  FOR  ALL  AIRChAFI 
ARRIVING  ON  IHIS  RUNWAY 

VELTXi  (N) =VELTXI(N) *AC1»TXISPD(I) 

VELLNt  (N)  =VELLNL(N)  *ACT*LNDSPD(I) 

STAFF  (N) = HT APP (N) ♦ACT*APPHT2 (I) 

A NG  A r I (N)  =ANGAPP(N)  ♦ACT»LSCNT2{I) 

A NGTGC  ( N ) = A NGT  G C ( N)  ♦ ATG*  ASCNT 1 (I) 

HTTGC  (N) =HTTGO  (N)  ♦AIG*COHT1 (I) 

11  CONTINUE 

INITIALIZE  ARRAYS 

CC  12  J=  1 , 2 
»T (J) =0.0 
HTCC (J,N) =0.0 

12  ANGCC (J, N) =0 . C 
HGT=0.C 
AAVE=C.C 
EHIMAX=C. 0 
EHIMI N = 1 7 5. 

FINL  MAX  AND  MIN  ASCENT  ANGIE  1 

DC  13  I = 1 , N ACTY  P 
IF  (RLE  (N)  .LE.C.O)  GO  TC  10 
IF  (FEAC(I)  . LE.0.0)  GO  TO  13 
DEF  = LEFFCN  (23,1 , N)  * A N N CEP  (I)/RDP(N) 

IF  (CEF.LE.O.C)  GO  TO  13 

IF  (ASCNT1 (I)  .GT.PHIMAX)  PHI MA X = A SC  NT  1 (1) 

IF  (ASCNT1 (I) . LI. PHIBIN)  F HI B I N= A SCNT 1 ( I) 

COMPUTE  WEIGHTED  AVERAGE  VALUES  FOR  ALL  AIRCRAFT 
DEPARTING  FROM  THIS  RUNWAY 

AAVE  = LEF*ASCN11  (I)  ♦ A A V E 
HGT=HGT+DEF*CCHT1 (I) 

13  CONTINUE 

CCMFUTE  RANGE  CF  MAX  ANT  MIN  CLIMBOUT  PHASE  1 

?ANC-F  = FHIMAX-EHININ 

NCC  E = 1 

IS  (RANGE. GT. C.  ’74^33)  GO  TO  14 

RANGE  IS  LESS  IRAN  10  DEGREES.  DEFINE  ONE  LINE  SOURCE 
FCB  ALL  AIRCRAFT 

ANGCC  (1 , N) = AAVE 
HTCC  (1,  N)  =HGT 
TST  = Fhl MAX 
GC  TC  16 

RANGE  IS  GREATER.  THAN  10  DEGREES.  DEFINE  TWO  LINE  SOURCES 
DEPENDING  ON  AIRCRAFT  HAVING  A CLIMbOUT  PHASE  1 ANGLE  LYING  IN 
THE  LCWEF  Cfi  UFFER  HAIF  CF  THE  RANGE  FOR  THIS  RUNWAY 

14  NCCF  = 2 

TST=EHIMIN+RANGE/2. 

CC  IS  I=1,NACTYP 


FTPTH062 
FTPTH06  3 
PTPTH064 
FT  PTH06  5 
FTPTH066 
FTPTH067 
FTPTH068 
FTPTH069 
FTPTH070 
FTPTH07 1 
FT  PTH07  2 
FTPTH07  3 
F1PTH074 
FTPTH07S 
FTPTH076 
FTPTH077 
FTPTH078 
FTPTHC79 
FTPTHC80 
FTPTH08 1 
FTPTH082 
FTPTH083 
FTPTH084 
FTPTH085 
FTPTH086 
FTPTH087 
FTPTH088 
FTPTH089 
FT  PTH090 
FTPTH09 1 
FTPTH092 
FTPTH09  3 
FTPTH  094 
FTPTH095 
FTPTH096 
FTPTH097 
FTPTH09P 
FTPTH099 
FTPTH 100 
FTPTH 101 
FTPTH  102 
FTPTH103 
FT  PTH  1 0 4 
FTPTH  105 
FT  PTH  106 
FTPTH 107 
FTPTH  108 
FTPTH  109 
FTPTH 110 
FTPTH 1 1 1 
FTPTH1 12 
FT  PTH  1 1 3 
FTPTH 114 
FTPTH 115 
FTPTH  116 
FTPTH 117 
FTPTH 118 
FTPTH 119 
FT  PTH  120 
FTPTH  12  1 
FTPTH 122 
FTPTH  12  3 
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If  (FSAC  (I)  . IE. 0.0)  GO  TO  15 

FTPTH 124 

EEF=CEPFCN  (23, I, N) * AN  NEEP  (I)/RDP(N) 

FTPTH 125 

IF  (CEF.LE.0.0)  30  TO  15 

FT  PTH  1 26 

J = 1 

FTPTH  127 

IF  (ASCNTI(I) .GT.TST)  J=2 

FTPTH 129 

KT  (J) =KT  (J)  * EEP 

FTPTH  129 

ANGCC  <J, N)  = ANGCC  (J, N)  + EEP*  ASCNT 1 (I) 

FTPTH 1 10 

HTCC  (J  , N)  =HTCO<J,N)  ♦EEF*CCHT1  (I) 

FT  PTH  1 3 1 

15 

CCNTINOE 

FTPTH  132 

DC  17  J = 1,2 

FTPTH 133 

HTCC  (J, N)  =H ICC  <J,N) /WT  (J) 

FTPTH  1 34 

17 

ANGCC  (J,  N)  = ANGCC  (J  , N)  / WT  (J) 

FTPTH  1 35 

16 

CONTINUE 

FT  PTH  1 36 

10 

CONTINUE 

FTPTH  1 37 

SETUFN 

FTPTH 138 

E ND 

FTPTH 1 39 
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SUBROin  INI.  TO D 1ST 


Purj>ose : 

To  define  the  weighted  average  takeoff  roll  distances 
and  speeds  for  a given  runway. 


'n;  it  : 


Aircraft  activity  parameters  on  the  runway. 


SUBROUTINE  TOD I ST (Nj 


initialize: 

VALUES 


FOR  ALL  AIRCRAFT  USING 
THIS  RUNWAY , FIND  THE. 
MAX  AND  MIN  TAKEOFF 
ROLL  DISTANCES 


COMPUTE  TAKEOFF  POINT 
FOR  ONI-  OR  no  LINE 
SOURCES  DEPENDING  ON 
CLIMHOUT  PHASE  1 ANGE1 


FIND  MID-POINT  OF  TAKEOFF 
ROLL  DISTANCES  AND  DEFINE 
TWO  LINE  SOURCES  IF  THE 
DIFFERENCE  BETWEEN  MAX 
AND  MIN  IS  GREATER  THAN 
10  PERCENT 


COMPUTE  WEIGHTED  AVERAGE: 
TAKEOFF  ROLL  DISTANCE  AND 
TAKEOFF  SPEED  FOR  ONE  OR 
TWO  LINE:  SOURCES  DEPENDING 
ON  MID-POINT  OF  DISTANCE: 


oUBRCUTINE  TODIST(N) 

ROUTINE  TO  SETUP  TAKECEF  BOLL  DISTANCES  FOB  APPLICATIONS  MODEL 
COMMON  /AOEDB V AC EMFC  (8 , 1 0,6)  , A SCNT1  (8)  , ASCNT2  (8)  , TX1SPD(8)  , 

. I NDSFC  (8)  , A PS PCI  (8)  , AB8PD2  (8)  , CO HI  1 (8)  , TOSPD  <0 ) , COSP D 1 ( 8)  , 

. OOSf L2  (8) , SB I UP I (8)  , CSCNT1  (8)  , EGCHKI  (8)  , ShTDNT (8)  , DScNT 2(b)  , 

. APPHI , APPHI2 (8)  ,CLMBEil,T0NT(8)  , ENGNO  (8,2) 

COMMON  /ACEDE2/  NACTY I , NE NWKS  , NPK Aft, I EGE LG,  IACTXP  (8)  , ANNARfi  (8)  , 
. ANNLEf  (8)  , ANNTGG  (8 ) , A BPFC  N (2  4 , 8 , 6)  , D E PFC N ( c4 , 8 , b)  ,TGO(3,4,8), 

. i I S F NN  (6)  , BNN Y (7,6)  , I USW  D (20 , 6)  , ACFUEL  (8)  , A hr LVT  (8)  , LPFLVT  (8)  , 
. ACSFIL  (8)  , ARSVEM  (o, 3 ,5)  , D PS  V EM  (6 , 8 , 5)  , NIBTT  (o)  , N IB  SEC-  (8,  6)  , 

. 1 1 PS  EG  (16, 3,8)  , IDIBT  l»  (8,6)  , TT ARF R ( 8 , e , o ) , N GBIT  (o ) , No F3EG (8 , fa)  , 

. IOBS EG  (1 6 , 8,6)  , IDOBTH  (8,6)  ,TT DPPR  (8 , 8 , 6)  , N P ASU (b)  , IDPRK A (6)  , 

. FAB  EA  (o, 3, 3) , IDI5PA  (8,6)  , IDOBP» (6,0)  , NLSEGS, ACLNSG  ( 1 1 , 2 5)  , JFS1 
COMMON  /MCDSIM/  NEB L , NCOP, TST , D1 S A , SDP  (6 ) , k AN  (6 ) , BTG  (6)  , 

. HTAF  f (6)  , H TTGO  (6)  , VFLLND  (6)  , V ELI  X I (b)  , ANGAPP (6)  , ANGTGO  ( r> ) , 

. DISI  (2, 6) , IOPT  (2,6)  , BRIO  (2,6)  , R R TXI  (^,6)  ,HTC6(,,o)  , A AGCO (2, 6)  , 
. f R AC  (8) 

DIMENSION  W T (2) 

iMIIAUZt  V A I U 1 s 


disa=o.C 

DISMAX=C. 

2ISMIN-1.ET0 
LC  5 J - 5 , 2 
WT  (J)  C . 0 
LIST  (J,N) =0 .0 
TOPI  (J, N)  =0.0 
RrTC(0,N)=0.0 
8 hBTXI  (J, N) =0. 0 

BEGIN  A I BO  B A FT  LOOP 

EC  10  1=1, N ACT  X F 

IE  (EEPECN  (23, I , N)  . LS. 0.0)  GO  TO  10 

Zi  (FBAC  (I)  . LE.0.0)  GO  T „ 10 

DEI  =L£FFCN  (23,  I , N)  * A N N LEI  ( I)  /R  DP  < N) 

! F (Li F. LF. 0.6)  GO  TO  10  , 

FINE  MAX  AND  MIN  TAKEOFF  ROLL  DISTANCES 

BEDS*!  EPFCN  (8,  I , N) 

IF  (BBC2 .GI. CISMAX)  CISMAX-SRD3 
Ir  (BBCS.LT.D1SMIN)  D1SMIN=RBDS 
CISAruISA*RRC5*L'EP 

2 '•PIT  t TAKES!  r-  C I N 7 j B ; N F OP  TWO  LINE  SOURCES 
PEM  INI  ON  CITMPt  r PF  A r 1 ANGLE 


If  (ASCNI1  (I)  ,GT.  TSI)  0 = 2 
ICPI(J,N)=T  PT(J,N)»  E { * R f IT 
« I ( J ) : X " ( J ) * D c p 
1'  CONTINUE 
DC  11  0=1,2 

IF  (NT  (0)  .LE.0.0)  .0  . , 11 

rcFi  (o,N)  =iorr  (J,N)/«i(j) 

11  NT  (0 ) -0.0 

FIND  MIDPOINT  TAKFCFf  OLI  DISTANCE  AND  DEFINE  TWO 
LINE  SCUFCE5  IF  Til:  ! 1 t E 1 N BETWEEN  MAX  AND  MIN 

IS  GREATER  THAN  1 , V RG f NT 


TDIST000 
TDIST001 
TDISTOO  2 
TDIST003 
TD I ST 004 
TDIST005 
TDIST006 
TDIST007 
TDIST008 
TDIST009 
TDIST010 
TDISTO  1 1 
(8)  TDISTO 12 
TDISTO  1 3 
TDIST014 
TDIST01 5 
TDIST016 
TDISTO 11 
TDISTO 1 3 
TDI ST019 
TDIST02C 
TDI ST02  1 
TDIST022 
TDIOT023 
TDI 51024 
TDIST025 
TDIST026 
TDIST027 
TDI ST028 
TDISTC29 
TD  t STO  30 
TDI ST031 
TDIST032 
TDI S 10  33 
TDISTO  34 
TDISTO  35 
TDI STO  36 
TDIST037 
TDI ST038 
TDISTO  39 
TPIST040 
TDIST04  1 
TDI ST042 
TDI FTC 4 3 
TDIST044 
TDI ST  04  8 
TL  IST'T»»6 
TDIST0U7 
TDIST048 
TDI ST  04  9 
TD I STO  50 
TDIST05  1 
TDTST052 
TDI STO 5 3 
TDI ST  084 
TDIST058 
TD r ST056 
TDISTO 57 
TDI ST058 
TDISTO*  1 
TDIST06T 
TDIST061 


non 


c 

CfcAR=(£IS«AX-DISMIN)/2. 

NFRL=  1 

If  (DISMIN. LT. 0 . 9*DI S H AX)  NRRL=2 
BEGIN  AIRCRAFT  LOOP 
DC  15  I=1,NACTYF 

If  (DEPFCN  (2 3,  I, N)  . LE. 0.0)  GO  TO  15 
IF  (FBAC  (I) . LE.0.0)  GO  10  15 
EEP=CEPFCN  (23,1, N)  ♦ANNDEP(I)/RDP(N) 
IF  (DEE. LE.0.0)  GO  TO  15 
R FDS=  C E FFCN  (5,  I , N) 

DEL=RFDS-DBAF 
J=1 

If  (CEL.GT. 0.0. AND. DBAR.GT.O. 0)  J=2 
WT  (J) = KI  (J)  + DEP 
DIST  ( J , N)  = D I ST  ( J , N ) ♦DEP*RRDS 
RRTC  ( J f N) =RRTC(J,N) ♦D££*TOSPD (I) 

15  CONTINUE 
C 

C CONFUTE  WEIGHTED  AVERAGE  TAKEOFF  ROLL 
C TAKEOFF  SPEED  FOR  NRRL  LINE  SOURCES 
C 

DC  17  J=1, NFRL 

DIST  (J,N) =DIST  (J,N)  / WT(J) 

RFTO  (J, N)  =R3TO  (J ,N) / W T ( J ) 

17  CONTINUE 
RETURN 
END 


TDIST06  2 
TDIST063 
TD  IST06  4 
TDIST065 
TDIST066 
TDI ST067 
TDIST068 
TDI ST 06 9 
TDI 3T070 
TDIST07  1 
TDI STO  7 ^ 
TDI ST 0 7 3 
TDI ST07  4 
TDI ST  0 7 5 
IDI ST076 
TDI STO 7 7 
TDI ST078 
TD 1ST  07 5 
TDIST080 
TDI STC81 
TD 1ST  0 8 2 

DISTANCE  AND  TDTST083 

TDISTC84 
TDIST085 
TDIST086 
TD I STO  8 ^ 
TDISTOSR 
TDI STC89 
TDI ST  090 
TDI ST09  1 


i 


r 


; 
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Hq  USAF/PREVP 

Hq  TAC/DEEV 

CINCUSAFE/Surgeon 

USAFA/DEV 

AF  IT/DEM 

OEHL/CC 

OEHL/OL-AA 

ADTC/CSV 

DDC/TCA 

EA/USA  Environ  Hygn  Agency 
USA  CERL 

WESTDIV/Code  09BE 

Technology  Transfer  Staff/EPA 

Office  of  R&D/EPA 

NARF/Code  64270 

Nav  Postgrad  School/Code  41A 

Argonne  Nat  Lab/EESD 

US  Environ  Protection  Agency 

FAA/AEQ 

Dr  Delaney 

Det  1 Hq  ADTC/WE 

Det  1 Hq  ADTC/EC 

Det  1 Hq  ADTC/ECA 

AFCEC/DEE 

Det  1 Hq  ADTC/PRT 

AF  ATL/DLODR 


3 

7 

1 

1 

1 

1 

5 

1 

12 

1 

1 

1 

1 

1 

2 

2 

5 

2 

1 

1 

2 

1 

7 

3 

1 

1 
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(The  reverse  of  this  $age  is  blank) 


